uses crt;
var
a:array[1..7,1..10] of integer;
b,i,j:integer;
begin
clrscr;
randomize();
//заполнение массива случайными числами
for i:=1 to 7 do
for j:=1 to 10 do
begin
a[i,j]:=random(10);
end;
//вывод массива
for i:=1 to 7 do
begin
for j:=1 to 10 do
write(a[i,j]:3,' ');
writeln();
writeln();
end;
//удаляем строку 6 и меняем 5 и 2 строки местами
for j:=1 to 10 do
begin
a[6,j]:=a[7,j];
a[7,j]:=0;
b:=a[5,j];
a[5,j]:=a[2,j];
a[2,j]:=b;
end;
writeln('Отредактированный массив');
//выводим отредактированный массив
for i:=1 to 6 do
begin
for j:=1 to 10 do
write(a[i,j]:3,' ');
writeln();
writeln();
end;
readln();
end.
===== PascalABC.NET =====
begin
ReadSeqIntegerWhile(p -> p <> 0).Count(p -> p.IsEven).Print
end.
1) 8 х 4 = 32(м) - провода на первую клумбу.
2) (8 + 3) х 2 = 22(м) - провода на вторую клумбу.
3) 4 х 4 = 16(м) - провода на третью клумбу.
4) (8 + 4) х 2 = 24(м) - провода на четвертую клумбу.
5) 32 + 22 + 16 + 24 = 94(м) - всего.
Ответ: 94 метра.
Смотря как:
Если на убывание (разбор): педаль, колесо, спица, камера=велик (вроде так...)
Если на возрастание (собрать): спица, колесо, камера=велик
Устройства ввода - клавиатура, dvd, мышь.
Устройства вывода - dvd, принтер, радио.
Обработка - компьютер, телефон.