Помогите пожалуйста написать программу на языке pascal по этому заданию. Заполните массив А из 100 элементов последовательно идущими целыми числами от 1 до 100. Напишите программу, которая вычислит в этом массиве сумму элементов, кратных двум и оканчивающимся на 6.
Ответы на вопрос
Ответил rinatmuxekto86
2
var
a:array [1..100] of integer;
i,sum:integer;
begin
sum:=0;
for i:=1 to 100 do
begin
a[i]:=i;
if (a[i] mod 2 = 0) and (a[i] mod 10 = 6) then
sum:=sum+a[i];
end;
writeln(sum);
end.
Denchik0812:
Заполните массив А из 100 элементов последовательно идущими целыми числами от 1 до 100. Напишите программу, которая вычислит в этом массиве количество элементов, кратных двум и трем одновременно. Помогите пожалуйста ещё с этим
Всё тоже самое, только заместо (a[i] mod 10 = 6) пишете (a[i] mod 10 = 3)
Оп, неверно написал, корректная замена: (a[i] mod 3 = 0)
Хорошо, спасибо вам огромное
Новые вопросы