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

дана последовательность чисел. найтидана последовательность чисел. найти минимальное и максимальное число и вычислить их среднее арифметическое. в паскале

  1. Ответ
    Ответ дан OxionPlay
    Uses crt;
    Var A:array[1..10]of integer;
         q,w,i,k,j:integer;
     begin
     randomize;
      for q:= 1 to 10 do
      begin 
      A[q] := random(256);        
      write(A[q]:4)   
      end;
    for i := 1 to 9 do
        for j := 1 to 10 - i do
          if A[j] > A[j + 1] then begin
            k := A[j];
            A[j] := A[j + 1];
            A[j + 1] := k;
          end;
    for i:=1 to 10 do
    w:=(A[1]+A[10])/2;
    write(w)
Самые новые вопросы