Задан массив а, состоящий из 6 элементов.
необходимо найти сумму элементов массива а.
примечания:
составить структурную схему программы;
должно быть реализовано 3 цикла: цикл по вводу, цикл подсчета суммы и цикл вывода элементов массива а;
операторы цикла не использовать.
129
230
Ответы на вопрос:
Program znanija; var i,n,j,sum: integer; s: string; a: array[1..100] of integer; beginn: =0; sum: =0; for i: =1 to 10 do begin writeln('введите ',i,'-ый элемент массива [-100; 500]'); read(a[i]); s: =inttostr(a[i]); j: =length(s); if (a[i] mod 5 = 0) and (strtoint(s[j])< > 0) then n: =n+1; if a[i] mod 2 = 0 then sum: =sum+a[i]; end; writeln; writeln; writeln('кол-во всех чисел кратных 5 и не оканчивающихся на ноль ',n); writeln; writeln('сумма всех четных чисел ',sum); end.
Популярно: Информатика
-
Shamаn1419.10.2022 07:21
-
dashaklimova0104.05.2021 11:21
-
Flashvinchester01.01.2022 08:43
-
HeBiDiMKa13.05.2020 02:46
-
Дентсик90106.11.2020 00:14
-
милана19802612.06.2023 02:24
-
Botan001102.03.2021 21:11
-
руслан766126.06.2020 09:45
-
sofialipnitscka16.02.2021 14:43
-
LeaV10.03.2021 20:37