Регистрация
nataljalevchen
16.05.2022 11:55
Информатика
Есть ответ 👍

Сделайте, , первый номер на pascal : )

274
349
Посмотреть ответы 3

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

BUSOS
BUSOS
4,5(27 оценок)

ответ:

var a: array [1..10] of real;

i: integer;

begin

write('массив: ');

for i: =1 to 10 do

begin

a[i]: =random(41)-20;

write(a[i]: 5)

end;

writeln;

write('массив: ');

for i: =1 to 10 do

begin

if a[i] > 0 then a[i]: =a[i]/2;

if a[i] < 0 then a[i]: =i;

write(a[i]: 5)

end

end.

объяснение:

ник4824
ник4824
4,4(68 оценок)

pascalabc.net

begin

  var a : = arrrandomreal(10, -99, 99);   // случайные числа

  a.transform(p -> round(p, 2)); // дробная часть - 2 знака

  a.println;

  for var i : = 0 to a.high do

    if a[i] > 0 then

      a[i] /= 2

    else if a[i] < 0 then

      a[i] : = i + 1;

  a.println

end.

leradolgolenko
leradolgolenko
4,6(46 оценок)

никакая XD

Объяснение:

CXDXDXDXDXDXDXDXDXD

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