// PascalABC.NET 3.0, сборка 1088
begin
var a:=ArrRandom(10,-20,20);
a.Println(',');
var m:=a.Max;
for var i:=0 to 9 do
if a[i]=m then a[i]:=0;
a.Println(',')
end.

Тестовое решение:
-14,-7,15,-7,-11,7,4,1,-20,-15
-14,-7,0,-7,-11,7,4,1,-20,-15

0 0

4 года назад

Помогите простейший алгоритм в codegear

blueskyservice

var a,b, P: real;

begin

write(' Введите длины сторон прямоугольника: ');

readln(a,b);

P:=2*(a+b);

write('периметр (P) = ',P);

readln;

end.

0 0

1 год назад

Помогите с информатикой,кому не оень,а.... аложила фото (( только наобум не присылайте ответ...это ведь на вашей совести,хах)) а

lorka

Ответ 54,670 является верным

0 0

4 года назад

В одномерном массиве А(10) найти наибольший элемент .решение в паскаль

Снусмумрик [175]

Var
a: array[1..10] of integer;
i, max: integer;
begin
for i := 1 to 10 do
begin
read(a[i]);
if (i = 1) or (a[i] > max) then
max := a[i];
end;
writeln('Max value = ', max)
end.

0 0

4 года назад