Ввести N целых натуральных чисел в массив и вывести его на
Ввести N целых естественных чисел в массив и вывести его на экран (1..1000)
Подсчитать сумму всех частей меньше 10
Найти количество нечетных частей кратных 7
Паскаль
2 ответа
Амелия Клюйкина
var
N, i, Sum, Odds: integer;
A: array [1..1000] of integer;
begin
sum := 0;
Odds := 0;
write('Введите N: ');
readln(N);
writeln('Наполнение массива.');
for i := 1 to N do
begin
write('Введите A[', i, '] = ');
readln(A[i]);
if A[i] lt; 10 then
sum := sum + A[i];
if (A[i] mod 7 = 0) and (A[i] mod 2 lt;gt; 0) then
Odds := Odds + 1;
end;
writeln;
writeln('Ваш массив.');
for i := 1 to N do
write(A[i]:4);
writeln;
writeln('Сумма частей меньше 10 = ', sum);
writeln('Количество нечетных частей кратных 7 = ', Odds);
end.
N, i, Sum, Odds: integer;
A: array [1..1000] of integer;
begin
sum := 0;
Odds := 0;
write('Введите N: ');
readln(N);
writeln('Наполнение массива.');
for i := 1 to N do
begin
write('Введите A[', i, '] = ');
readln(A[i]);
if A[i] lt; 10 then
sum := sum + A[i];
if (A[i] mod 7 = 0) and (A[i] mod 2 lt;gt; 0) then
Odds := Odds + 1;
end;
writeln;
writeln('Ваш массив.');
for i := 1 to N do
write(A[i]:4);
writeln;
writeln('Сумма частей меньше 10 = ', sum);
writeln('Количество нечетных частей кратных 7 = ', Odds);
end.
Viktor Konovkin
С var без помощи других))
read(n);
for i:= 1 to n do begin
read(a[i]); write (a[i],' ');
if (a[i]lt;10) then sum:=sum+a[i];
if ((a[i] mod 2 lt;gt; 0) and(a[i] mod 7 = 0)) then Inc(k);
end;
writeln;
writeln(sum);
writeln(k);
end.
read(n);
for i:= 1 to n do begin
read(a[i]); write (a[i],' ');
if (a[i]lt;10) then sum:=sum+a[i];
if ((a[i] mod 2 lt;gt; 0) and(a[i] mod 7 = 0)) then Inc(k);
end;
writeln;
writeln(sum);
writeln(k);
end.
Chernomzav Alesha
(могу написать и вар, но лучше Вы сами вчитаетесь в код)
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Облако тегов