Регистрация
ekaterinaf79
12.12.2022 18:13
Информатика
Есть ответ 👍

найти ошибку в коде ПАСКАЛЬ. Мне сказали,что в коде неправильно реализована функция рандом,как это исправить?
var
po: array [1..100] of integer;
i,sum: integer;
begin
for i := 1 to 100 do
begin
po[i] := random(9)-5;
writeln (po[i]);
end;
sum:=0;
for i:=1 to 100 do
begin
if po[i]>0 then
sum:=sum+po[i]
end;
writeln(sum);
end.

206
373
Посмотреть ответы 2

Ответы на вопрос:

настя7589
настя7589
4,5(13 оценок)

незнаю

Объяснение:

Бравл старс броо

mrcanxer
mrcanxer
4,8(63 оценок)
Добил её)//pascalabc.net //версия 3.3, сборка 1611 (06.01.2018) var x, y, a, b: longint; begin var ax: =new list< integer> ; for var i: =10000 to 99999 do begin x: =i; while x > 0 do begin y : = x mod 10; if y > 2 then a : = a + 1; if y < 8 then b : = b + 1; x : = x div 10; end; if (a=3) and (b=4) then begin ax.add(i); end; a: =0; b: =0; end; println('минимальное x-> ',ax.min); println('максимальное x-> ',ax.max); end. результат: минимальное x-> 10338  максимальное x-> 97722 

Популярно: Информатика