четверг, 20 октября 2016 г.

Задание для 11 класса 20 октября 2016 года

Написать программу нахождения разности наибольшего и наименьшего значений элементов массива. Значения элементов массива вводить с клавиатуры.
Ответы расположить в комментариях к этому сообщению.(не забудьте указать свою фамилию в ответах).
Автор: на

7 комментариев:

  1. Unknown20 октября 2016 г. в 03:15

    Ерохин Илья 11 А
    program zadacha;
    var
    a:array [1..10] of integer;
    i, d, min, max:integer;
    begin
    for i:=1 to 10 do
    begin
    writeln('Ввести',i,'элемент массива');
    readln(a[i]);
    writeln('A(',i,')=',a[i]);
    end;
    min:=a[i];
    max:=a[i];
    for i:= 1 to 10 do
    begin
    if a[i]max then max:=a[i];
    end;
    writeln('max=',max,'min=',min);
    begin
    d:=max-min;
    writeln('Разность=',d)
    end;
    end.

    ОтветитьУдалить
  2. Unknown20 октября 2016 г. в 03:21

    program zadacha;
    var
    a:array [1..10] of integer;
    i, d, min, max:integer;
    begin
    for i:=1 to 10 do
    begin
    writeln('Ââåñòè',i,'ýëåìåíò ìàññèâà');
    readln(a[i]);
    writeln('A(',i,')=',a[i]);
    end;
    min:=a[i];
    max:=a[i];
    for i:= 1 to 10 do
    begin
    if a[i]max then max:=a[i];
    end;
    writeln('max=',max,'min=',min);
    begin
    d:=max-min;
    writeln('Ðàçíîñòü=',d)
    end;
    end.

    ОтветитьУдалить
  3. Unknown20 октября 2016 г. в 03:23

    Двоеглазов Захар
    Program zadacha;
    var
    a: array [1..10] of integer;
    i,c,min,max: integer;
    begin
    for i:=1 to 10 do
    begin
    writeln ('ââåñòè',i,'ýëåìåíò ìàññèâà');
    readln(a[i]);
    writeln('A(',i,')=',a[i]);
    end;

    min:=a[i];
    max:=a[i];
    for i:=1 to 10 do
    begin
    if a[i]< min then min:=a[i];
    if a[i]>max then max:=a[i];
    end;


    c:=max-min;
    writeln('Ðàçíîñòü=',c);
    writeln('max=',max,'min=',min);
    end.

    ОтветитьУдалить
  4. Плешаков20 октября 2016 г. в 03:26

    program zadacha;
    var
    a:array [1..10] of integer;
    t,i,min,max: INTEGER;
    begin
    for i:=1 to 10 do
    begin
    writeln('Ввести',i,'элемент массива');
    readln(a[i]);
    writeln('a(',i,')=',a[i]);
    end;
    min:=a[i];
    max:=a[i];
    for i:= 1 to 10 do
    begin
    if a[i]max then max:=a[i];
    end;
    writeln('max=',max,'min=',min);
    begin
    t:=max-min;
    writeln('разность=',t);
    end;
    end.

    ОтветитьУдалить
  5. Unknown20 октября 2016 г. в 03:27

    Тимин Илья
    Program zadacha;
    var
    a: array [1..10] of integer;
    i,c,min,max: integer;
    begin
    for i:=1 to 10 do
    begin
    writeln ('ââåñòè',i,'ýëåìåíò ìàññèâà');
    readln(a[i]);
    writeln('A(',i,')=',a[i]);
    end;

    min:=a[i];
    max:=a[i];
    for i:=1 to 10 do
    begin
    if a[i]< min then min:=a[i];
    if a[i]>max then max:=a[i];
    end;


    c:=max-min;
    writeln('Ðàçíîñòü=',c);
    writeln('max=',max,'min=',min);
    end.

    ОтветитьУдалить
  6. Unknown20 октября 2016 г. в 03:29

    program zadacha;
    var
    a:array [1..10] of integer;
    i,d,min,max:integer;
    begin
    for i:=1 to 10 do
    begin
    writeln('Ввести',i,'элемент массива');
    readln(a[i]);
    writeln('A(',i,')=',a[i]);
    end;
    min:=a[i];
    max:=a[i];
    for i:=1 to 10 do
    begin
    if a[i]max then max:=a[i];
    end;
    writeln('max=',max,'min=',min);
    begin
    d:=max-min;
    writeln('разность=',d)
    end;
    end.
    Обухов В. 11,,A"

    ОтветитьУдалить
  7. Игнатьев20 октября 2016 г. в 03:31

    Игнатьев
    program hahaha;
    var
    i,d, max,min:integer;
    a:array[1..10] of integer;
    begin
    for i:=1to 10 do
    begin
    writeln('Ввести',i,'элемент массива');
    readln(a[i]);
    writeln('A(',i,')=',a[i]);
    end;
    min:=a[i];
    max:=a[i];
    for i:=1 to 10 do
    begin
    if a[i]max then max:=a[i];
    end;
    writeln('max=',max,'min=',min);
    begin
    d:=max-min;
    writeln('Разность=',d)
    end;
    end.

    ОтветитьУдалить

Подписаться на: Комментарии к сообщению (Atom)