1. Дан массив. Напечатать:а) Все четные1. Дан массив. Напечатать:а) Все четные элементыб) Все элементы, оканчивающиеся нулем.2. В массиве хранится информация о количестве осадков, выпавших каждый день января. Определить, в как...
1. Дан массив. Напечатать:а) Все четные1. Дан массив. Напечатать:
а) Все четные элементы
б) Все элементы, оканчивающиеся нулем.
2. В массиве хранится информация о количестве осадков, выпавших каждый день января. Определить, в какие числа месяца осадков не было.
Паскаль.
Гость
Ответ(ы) на вопрос:
Гостьprogram gt;
var a:array[1..100]of integer;
n,i:integer;
begin
read(N);
for i:=1 to n do
read(a[i]);
write('чётные числа ');
for i:=1 to n do
if(a[i] mod 2=0)then write(a[i],' ');
writeln;
write('числа оканчивающиеся нулем ');
for i:=1 to n do
if(a[i] mod 10=0)then write(a[i],' ');
end.
2)
program gt;
var a:array[1..1000]of integer;
n,i:integer;
begin
read(N);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if(a[i]=0)then write(i,' ');
end.
Не нашли ответ?
Похожие вопросы