Достать все нужные вещи для урока.
Послушать учителя и его объяснения.
Приступить к рисованию.
var
a: array[1..10, 1..10] of integer;
i, j, s: integer;
begin
s := 0;
for i := 1 to 10 do
begin
for j := 1 to 10 do
begin
a[i, j] := random(20) + 1;
write(a[i, j]:3);
if (j = 2) and (a[i, j] > 10) then s := s + a[i, j];
end;
writeln;
end;
writeln('Сумма элементов 2го столбца больших 10 равна', s);
end.
Равное нулю, ну если логически рассуждать.Я так думаю, мне было 5
Uses graphabc;
begin
window.IsFixedSize := true;
window.Height := 600;
window.Width := 800;
pen.Color := clred;
lockdrawing;
for var i := 0 to 750 do
begin
window.Clear;
DrawRectangle(i, 0, 50 + i, 50);
redraw;
end;
end.
Данные с твоим именем, пароль не должен никаким образом совпадать с логином.