7. Сплануй і розроби проект Тренажер у середовищі Скретч, у яко- му реалізуй модель руху автомобіля - id1219938520221228 от maks737 28.12.2022 23:36

Question

Информатика: 7. Сплануй і розроби проект Тренажер у середовищі Скретч, у яко- му реалізуй модель руху автомобіля на трасі, що регулюється світлофорами та якою рухаються інші автомобілі. Якщо авто- мобіль порушує правила, то його рух припиняється, і на екрані з являється повідомлення про причину зупинки: проїзд на чер- воне світло світлофора чи зіткнення з іншим авто. ДРУЗЬЯ

maks737 · Accepted Answer

Program Djonny1981;
uses crt;
const
m=5;
var
a: array[1..m,1..m] of integer;
i, j: integer;
sum: integer;
begin
randomize;
sum:=0;
for i:=1 to m do
    begin
      for j:=1 to m do
        begin
          a[i,j]:=random(101)-50;
          write(a[i,j]:5);
        end;
        writeln();
    end;
for i:=1 to m do
    for j:=1 to m do
      if j mod 2 = 0 then {вот здесь проверка, чётный ли столбец}
         sum := sum + a[i,j];
writeln('Сумма элементов чётных столбцов равна ',sum);
if sum>0 then
      for i:=1 to m do
        for j:=1 to m do
          if i mod 2 = 1 then
            a[i,j]:=a[i,j]*a[i,j]
    else
      for i:=1 to m do
        a[m-i+1,i]:=a[m-i+1,i]+2;
for i:=1 to m do
    begin
      for j:=1 to m do
        write(a[i,j]:5);
      writeln();
    end;
end.

MOGZ ответил