Использовать Роботалгначесли справа свободно и не сверху свободно товправовсенц пока справа свободно и сверху свободновправокцнц пока не сверху свободно и снизу свободнозакраситьвправокцесли не снизу свободно и не сверху свободно и справа свободно то вправо всенц пока справа свободнозакраситьвправокцкон
Г) if x o then e: = 5 Я думаю что это так
Uses System;
Var in, out : text;
line, col : integer;
k : integer;
begin
Assign(in, "nome.in");
Assign(out, "nomer.out");
Reset(in);
Rewrite(out);
Read(in, line, col, k);
if k < col * line theb
begin
Write(out, (k - 1) div col + 1, ' ', (k - 1) mod col + 1);
end
else
Write(out, "слишком большое число")
end;
close(in);
close(out);
end.
Const n=10;
var a:array[1..n] of integer;
i,s,min:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(51);
write(a[i]:3);
end;
writeln;
s:=0; min:=a[1];
for i:=1 to n do
begin
s:=s+a[i];
if a[i]<min then min:=a[i];
end;
writeln('s = ',s,' min = ',min);
end.
Пример:
Массив A:
18 22 5 50 18 23 48 2 22 26
s = 234 min = 2
Что-бы поставить кол-во знаков после запятой я просто использовал библиотеку iomanip и функцию fixed, и через setprecision поставил кол-во знаков. Естественно это можно сделать через формулы и какие-то алгоритмы, но это очень долго, муторно, да и зачем? Если это намного эффективнее, быстрее и намного легче.
