1.
Program Program1;
Var
a:array [1..20] of integer;
i,k:integer;
begin
randomize;
for i:=1 to 20 do
a[i]:=random(101);
k:=0;
for i:=1 to 20 do
begin
write(a[i],', ');
k:=k+a[i];
end;
Writeln('Сумма элементов массива: ',k);
end.
2.
Program Program2;
Var
a:array [1..20] of integer;
i,k:integer;
begin
randomize;
for i:=1 to 20 do
a[i]:=random(101);
k:=0;
for i:=1 to 20 do
begin
write(a[i],', ');
inc(k);
end;
Writeln('Количество элементов массива: ',k);
end.
В паскале не силен, алгоритм следующий
если 2*sqrt(S1/Pi) <= sqrt(S2) то "Круг поместится в квадрат"
иначе "Круг не поместится в квадрат"
если 2*sqrt(S1/Pi) >= sqrt(2*S2) то "Квадрат поместится в круг"
иначе "Квадрат не поместится в круг"
Это смешные картинки, комиксы, приколы и т. п.
Простите я немного не поняла условия объясните пожалуйсто
<span>If a>b
Then begin с:=1; d:=2; end
Else begin c:=3; d:=4; end;</span>