• Помогите )
    Надо сделать отчет !!
    Program prog;
    uses crt;
    var a:array[1..10] of integer;
    s,i,max, min: integer;
    sr: real;

    begin
    clrscr;
    min:=a[1];
    for i:=1 to 10 do begin
    write('a[',i,'] = ');
    readln(a[i]);
    end;

    for i:=1 to 10 do begin
    s:=s+a[i];
    if a[i]>max then max := a[i];
    if a[i] end;
    sr:=s/10;
    writeln;
    writeln('Сумма всех элементов массива s = ', s);
    writeln('Среднее арифметическое sr = ', sr:0:1);
    writeln('Max = ', Max);
    writeln('Min = ', Min);
    end.

Ответы 1

  • да
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years