Срочно ! У нас программа Pascal ABC !
Ввести массив случайными числами, найти элементы массива равный 11, найти сумму всех чётных элементы массива 50
iantov:
А, подскажите где ошибки ?
Ответы
Ответ дал:
1
Ответ:
program vlasov_loc;
var i, s: integer;
var a: array [1..50] of integer;
begin
randomize;
for i:= 1 to 50 do a[i]:= random(100);
for i:= 1 to 50 do if a[i] mod 2 = 0 then s:= s + a[i];
writeln ('a[11] = ', a[11]);
writeln ('Сумма чётных элементов - ', s)
End.
Объяснение:
Слишком неоднозначно задание, в ответе лишь пример алгоритма что нужен.
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
7 лет назад