Рассмотрите рисунки. Определите и запишите, какие приёмы редактирования применяли к каждому из них

Показать ответ

Ответ:

Vova2288s

24.01.2021 23:01

Program vvv2;
uses crt;
const n=5;
const m=6;
var
a:array[1..n,1..m] of integer;
st:array[1..n] of integer;//массив для хранения столбца
i,j,nomer,min : integer;
begin
Randomize;
for i:=1 to n do
    for j:=1 to m do
      a[i,j]:= Random(100); //заполняем массив
writeln;
writeln('Начальный массив:');
for i:=1 to n do
    begin
      for j:=1 to m do
        write(a[i,j]:5);//выводим массив
      writeln;
    end;
writeln('*** alphaues is thinking... ***');
for i:=1 to n do
begin
    st[i]:=a[i,1];
    a[i,1]:=a[i,m];
    a[i,m]:= st[i];
end;
writeln;
writeln('Результат:');
for i:=1 to n do
    begin
      for j:=1 to m do
        write(a[i,j]:5);//выводим массив
      writeln;
    end;
end.

0,0(0 оценок)

Ответ:

СуПерБро123

16.11.2022 12:00

Program Mazoff1;
uses crt;
var
a,b: array [1..5] of integer;//Массивы А и В
c:array [1..10] of integer;//Массив С
i,j:integer;//счетчики
begin
randomize;
j:=0;
for i:=1 to 5 do
    begin
      a[i]:=random(101)-50;//заполняем массивы
      b[i]:=random(101)-50;//случайными числами от -50 до 50
    end;
    for i:=1 to 5 do
    begin
      write(a[i],' '):5;//выводим массивы А и В в столбик
      writeln(b[i]):5;
    end;
for i:=1 to 5 do
    begin
     if a[i]>0 then //проверяем текущий элелмент массива А
       begin
        j:=j+1;     //если он положительный, увеличиваем счетчик на 1
        c[j]:=a[i]; //и добавляем этот элемент в массив С
    end;
     if b[i] mod 2 <> 0 then //проверяем текущий элелмент массива В
       begin
       j:=j+1;            //если он чётный, увеличиваем счетчик на 1
       c[j]:=b[i];        //и добавляем этот элемент в массив С
     end;
end;
writeln('Всего в массиве С ',j,' элементов: ');
for i:=1 to j do
    writeln(c[i]);
end.

Program Mazoff2;
uses crt;
const n = 20;
var
mas:array [1..n] of real;//Массив данных
i,j:integer;//счетчики
ur,pl: real;//урожай и площадь
begin
randomize;
for i:=1 to n do
    begin
      mas[i]:=random(101);//заполняем массив
    end;
    j:=1;
    ur:=0;
    pl:=0;
    while j<=n do
    begin
      ur:=ur+mas[j]*mas[j+1];
      pl:=pl+mas[j+1];
      j:=j+2;
    end;
writeln('Всего собрано ',ur,' тонн с общей площади ',pl,' га.');
writeln('Средняя урожайность равна ',ur/pl:3:2);
end.