2)Дан массив из 10 элементов;вывести только те числа которые кратны 3;найти проиизведение чисел которые оканчиваются на 3 и 4
Ответы на вопрос
Ответил lgjfiulukhg
0
program n1;
uses crt;
var aw:array[1..10] of integer;
i,w,g:integer;
begin
g:=0; w:=10;
for i:=0+1 to w do begin
aw[i]:=random(100);
write(aw[i]:6);
end;
writeln();
write('Чот');
for i:=0+1 to w do begin
if aw[i] mod 2 = 0 then g:=g+1;
end;
write('Всего чотных чисел ',g);
writeln();
write('Не чот');
g:=0;
for i:=0+1 to w do begin
if aw[i] mod 2 > 0 then g:=g+1;
end;
write('Всего не чотных чисел ',g) ;
end.
uses crt;
var aw:array[1..10] of integer;
i,w,g:integer;
begin
g:=0; w:=10;
for i:=0+1 to w do begin
aw[i]:=random(100);
write(aw[i]:6);
end;
writeln();
write('Чот');
for i:=0+1 to w do begin
if aw[i] mod 2 = 0 then g:=g+1;
end;
write('Всего чотных чисел ',g);
writeln();
write('Не чот');
g:=0;
for i:=0+1 to w do begin
if aw[i] mod 2 > 0 then g:=g+1;
end;
write('Всего не чотных чисел ',g) ;
end.
Ответил clinteastwood2
0
кажись не верная программа, причем здесь вывод четных чисел?
Новые вопросы