1)
var A: array [1..6,1..4] of integer;
i,j: integer;
begin
randomize;
for i := 1 to 6 do begin
for j := 1 to 4 do begin
A[i,j] := random(20) - 10;
end;
end;
for i := 1 to 6 do begin
for j := 1 to 4 do begin
if (A[i,j] == 0) then begin
writeln("0 v stroke ", i);
continue;
end;
end;
end;
end.
2)
var B: array [1..10] of integer;
i: integer;
begin
for i := 1 to 10 do begin
if (i mod 2 == 0) then B[i] := 5;
else B[i] := 2;
end;
for i := 1 to 10 do begin
writeln(B[i]);
end;
end.
Var a,b,c:integer;
begin
writeln('Введите три числа:');
readln(a,b,c);
if (a=b)and(b=c)
then writeln('Треугольник равносторонний')
else writeln('Треугольник не равносторонний (а может и не треугольник)');
end.
Пример:
Введите три числа:
5 5 5
Треугольник равносторонний
Var
x,y:integer;
begin
writeln('Введите х и у');
readln(x,y);
if x>y then writeln(x,'>',y);
if x<y then writeln(x,'<',y);
if x=y then writeln(x,'=',y);
<span>end.</span>