Регистрация
кот929
26.04.2020 07:17
Информатика
Есть ответ 👍

50 БАЛЛОВ. Написать 2 программы в паскале

131
479
Посмотреть ответы 1

Ответы на вопрос:

shuraKotokoto
shuraKotokoto
4,8(5 оценок)
1) var   n, i, c, sum, sum2, c2: integer;     a: array of integer;   begin   sum : = 0;     sum2 : = 0;   c2 : = 0;   c : = 0;     readln(n);     setlength(a, n);     for i : = 0 to n - 1 do     begin     read(a[i]);       if(a[i] > 0) and (a[i] > 6) then       begin       sum : = sum + a[i];         c : = c + 1;       end;       if(a[i] mod 2 = 0) and (a[i] > 6) then       begin       sum2 : = sum2 + a[i];       c2 : = c2 + 1;       end;     end;     writeln(sum / c);     write(sum2 / c2);   end. 2) var   n, i, max, im: integer;   a: array of integer;   begin   im : = 1;   readln(n);   setlength(a, n);   for i : = 0 to n - 1 do   begin     read(a[i]); if(i = 1) then max : = a[0];     if(a[i] > max) then     begin       max : = a[i];       im : = i + 1;     end;   end;   write((max * 2) / im); end.

Популярно: Информатика