// PascalABC.NET 3.2, сборка 1437 от 03.05.2017 // Внимание! Если программа не работает, обновите версию!
begin Writeln('*** Исходный массив 12x12 ***'); var a:=MatrRandom(12,12,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); Writeln('Строка, содержащая максимальный элемент'); a.Row(a.ElementsWithIndexes.Select(e->(e[0],e[2])) .MaxBy(e->e[1])[0]).Println; Writeln('*** Итоговый массив 12x12 ***'); foreach var i in Range(0,11,2) do a.SetRow(i,(a.Row(i).Sorted.ToArray)); a.Println(4) end.
begin
write('a, b: ');
readln(a,b);
write('c: ');
readln(c);
s:=2*(a+b);
writeln('Количество сетки: ',s:5:1,' м');
d:=a*b*c;
writeln('Количество минеральных удобрений: ',d:5:1,' кг');
end.
Пример:
a, b: 24 50
c: 2.5
Количество сетки: 148.0 м
Количество минеральных удобрений: 3000.0 кг
Или так (без ввода данных):
var a,b,s,c,d:real;
begin
a:=24;
b:=50;
c:=2.5;
s:=2*(a+b);
writeln('Количество сетки: ',s:5:1,' м');
d:=a*b*c;
writeln('Количество минеральных удобрений: ',d:5:1,' кг');
end.
Результат:
Количество сетки: 148.0 м
Количество минеральных удобрений: 3000.0 кг