Регистрация
drart77
10.05.2023 03:44
Информатика
Есть ответ 👍

с информатикой, не сложно​

277
288
Посмотреть ответы 1

Ответы на вопрос:

selihanova
selihanova
4,7(49 оценок)
Первая задача:

program shet;

uses crt;

var mas: array [1..10] of integer;

i, sh: integer;

begin

for i:=1 to 10 do

begin

mas[i]:=random(10);

write(mas[i], ' ');

if (mas[i] mod 2 = 0) then sh:= sh + 1;

end;

writeln;

write(sh, ' shetnix shisel');

end.

Вторая задача:

program mas;

uses crt;

var a: array [1..20] of integer;

i, x: integer;

begin

for i:=1 to 10 do

begin

a[i]:=random(100);

write(a[i], ' ');

end;

writeln;

writeln('Enter x');

readln(x);

for i:=1 to 10 do

begin

if (a[i] < x)then write (a[i], ' ');

end;

end.

Популярно: Информатика