Ребят решить 2 любых , только правильно и чтоб запись правильная была :3
Answers & Comments
Sky09
Ну два последних сделаю :) 5. uses crt; const N=10; var a:array [1..N] of integer; k,x:integer; begin for x:=1 to N do begin write('a[',x,']:'); readln(a[x]); if a[x]=0 then inc(k); end; writeln('Количество нулей: ',k); end. --- 6. uses crt; const N=10; var a:array [1..N] of integer; k,x:integer; begin for x:=1 to N do begin write('a[',x,']:'); readln(a[x]); if a[x] mod 2=0 then inc(k); end; writeln('Количество четных элементов: ',k); end.
Answers & Comments
5.
uses crt;
const N=10;
var a:array [1..N] of integer;
k,x:integer;
begin
for x:=1 to N do
begin
write('a[',x,']:');
readln(a[x]);
if a[x]=0 then inc(k);
end;
writeln('Количество нулей: ',k);
end.
---
6.
uses crt;
const N=10;
var a:array [1..N] of integer;
k,x:integer;
begin
for x:=1 to N do
begin
write('a[',x,']:');
readln(a[x]);
if a[x] mod 2=0 then inc(k);
end;
writeln('Количество четных элементов: ',k);
end.