Регистрация
konstantunzayac
09.11.2020 23:40
Информатика
Есть ответ 👍

Информатика 10 класс. Решить задачи....

254
420
Посмотреть ответы 2

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

Theyom47
Theyom47
4,8(25 оценок)

1)begin

var a := ArrRandom(5, -1, 1);

foreach var b in a do

Write(b:3)  

end.

2)const N = 20;

var

 a: array[1..N] of integer;

max: integer;

i, count: byte;

begin

 randomize;

   max := -26;

   for i:=1 to N do begin

  a[i] := random(40)-26;

  write(a[i],' ');

  if a[i] > max then max := a[i];

  end;

  writeln;

  count := 0;

  for i:=1 to N do

  if abs(a[i]) > max then

count := count + 1;

writeln(count);        

end.

Helponator
Helponator
4,6(38 оценок)
Шайба,шакал,шалун,шарада,шарик,шариковый,шарнир,шар,шарф

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