Написать программу на языке Паскаль. Вводятся размер и элементы одномерного массива A(N), состоящего из целых чисел. Подсчитать сумму простых чисел, оканчивающихся на 3. Результат вывести на экран.
uses crt;
Var a:array [1..100] of integer; i,n,s: integer;
Begin
Writeln(Введите размер массива); readln(n);
For i:=1 to n do begin
writeln(Введите элемент массива номер ,i); read(a[i]);
end;
For i:=1 to n do
if a[i] mod 10=3 then s:=s+a[i];
Writeln(Сумма = ,s);
end.
Написано через PascalABC. Если используете другой паскаль вместо первой строчки пишите "Program 123;"
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
