Решить 1. массив состоит из 20 целых чисел от -10 до 5. определить количество элементов по модулю больших, чем максимальный 2. массив стоит из 20 целых чисел от -10 до 10 найти среднее арифметическое положительных элементов массива
177
362
Ответы на вопрос:
const n=20;
var i,m,k: integer;
a: array[1..n] of integer;
begin
m: =-20;
for i: =1 to n do
begin
a[i]: =random(16)-10;
write(a[i]: 3,' ');
if a[i] > m then m: =a[i]
end;
writeln;
for i: =1 to n do
if (abs(a[i]) > m) then k: =k+1;
writeln(k)
end.
const n=20;
var i,s,k: integer;
a: array[1..n] of integer;
begin
for i: =1 to n do
begin
a[i]: =random(21)-10;
write(a[i]: 3,' ');
if a[i] > 0 then
begin
s: =s+ a[i];
k: =k+1
end
end;
writeln;
writeln(s/k: 0: 3)
end.
Операторные скобки
После служебного слова then, или после служебного else будет выполняться только один оператор. Если необходимо, чтобы выполнялось несколько операторов их нужно взять в операторные скобки:
begin
...
end;
Популярно: Информатика
-
Lososepotam09.02.2023 02:16
-
Миша799114.04.2020 06:45
-
aleshibin01.11.2022 10:04
-
ВикторияПан20.12.2020 11:34
-
maria2006197019.01.2021 05:19
-
АгентК15.05.2020 13:27
-
8952320366319.06.2023 16:47
-
evdokiya888p06xhz31.03.2023 05:59
-
AbstergoAlexander18.01.2021 15:59
-
Katekate2001lol23.08.2020 13:02