Кто автор на смену декабрей приходят январи - id1845225120210501 от Ольдафіг 01.05.2021 19:13

Question

Информатика: Кто автор на смену декабрей приходят январи ​

Ольдафіг · Accepted Answer

{ задание 1}
const
n=17;
var
a:array[1..n] of integer;
i,k:integer;
begin
Randomize;
k:=0;
for i:=1 to n do begin
    a[i]:=Random(99)+1;
    Write(a[i],' ');
    if a[i] mod 2=0 then k:=k+1
    end;
Writeln;
Writeln('k=',k)
end.

Пример
43 86 43 13 24 18 93 38 38 59 15 75 12 92 8 72 8
k=10

{ задание 2/3}
const
n=17;
var
a:array[1..n] of integer;
i,s:integer;
begin
Randomize;
s:=0;
for i:=1 to n do begin
    a[i]:=Random(99)+1;
    Write(a[i],' ');
    if a[i] mod 10=2 then s:=s+a[i]
    end;
Writeln;
Writeln('s=',s)
end.

Пример
58 39 12 24 91 57 14 44 47 61 31 10 95 54 42 98 76
s=54

Кто автор "на смену декабрей приходят январи"

MOGZ ответил

Кто автор "на смену декабрей приходят январи"​

MOGZ ответил

Кто автор "на смену декабрей приходят январи"