Ответ:
Объяснение:
const
n = 100;
var
a:array[1..n] of integer;
i, k:integer;
begin
k:=1;
for i:= 1 to n do begin
a[i]:=k;
if (i mod 2 = 0) then k:=k + 1;
end;
for i:= 1 to n do
write(a[i], ' ');
readln;
end.
1.
const k=15;
var a:array [1..k] of integer;
i:integer;
begin
for i:=1 to k do
a[i]:=random(50);
writeln (a)
end.
2.
const k=15;
var a:array [1..k] of integer;
i:integer;
begin
for i:=1 to k do
begin
a[i]:=i*2;
writeln (a[i])
end
end.
Ответ:
а)2 б)1 в)3 г)4
var a , b : double ;
writeln(a,b);
readln(a*b*1/2) ;
end
Я не помню синтаксис паскаля , так что не обессудь
чему вас в школе учат..