Var
a:array [1..10] of integer;
i,sum,kol:integer;
begin
for i:=1 to 10 do a[i]:=random(10)+1;
for i:=1 to 10 do write(a[i],' ');
writeln;
for i:=1 to 10 do
if a[i] mod 2=0 then sum:=sum+a[i] else kol:=kol+1;
writeln(sum);
writeln(kol);
end.
For I in massiv do
Begin
If I mod 2 =0
Then
Write(i,' ') ;
End;
Ты о чем? я не понимаю суть твоего вопроса, напиши в коментарии к ответу
Program massiv;
var i,max,n,j: integer;
a: array[1..30] of integer;
begin
writeln ('Введите элемент массива');
for i:=1 to 30 do
begin
write ('a[',i,']-');
readln (a[i]);
end;
n:=1;
max:=a[i];
for i:=2 to 30 do
if max<a[i] then
begin
max:=a[i];
n:=i;
end;
for i:=1 to 30 do
if a[i]<0 then a[i]:=-a[i];
writeln ('Наибольший элемент в массиве ', max);
writeln ('Номер массива ', n);
writeln ('Получившийся массив');
for i:=1 to 30 do
write (a[i],' ');
end.
1. Начало
2. k=0, i=0; Ввести: b, n, m[n]
// m[n] - массив из n элементов
3. Если m[i] = b, то k=k+1
// m[i] обращение к i-ному элементу массива
4. Если i<n, то i=i+1 и вернутся в п.3
5. Вывести: k
6. Конец