profile
Опубликовано 6 лет назад по предмету Информатика от горнолыжник23

Составить программу которая вводит массив из 10 элементов и печатает разность между максимальным и минимальным значением​. На Паскале, элементы целого типа

  1. Ответ
    Ответ дан lbvf23

    Var i, max, min:Integer;

    A:array[1..10]of integer;

    Begin

    Max:=-1;min:=10;

    For i:=1 to 10 do begin

    A[i]:=random(10);

    Write(' ', a[i]) ;

    If a[i]>max then max:=A[i];

    If a[i]<min then min:=a[i];

    End;

    Writeln;

    Write(max-min) ;

    End.

    1. Ответ
      Ответ дан Артур998
      https://znanija.com/task/32112313 , помогите с информатикой пожалуйста 100 б
Самые новые вопросы