Помогите решить задачу! Створіть і виведіть масив з 20-ти випадкових цілих чисел з діапазону (0;100),використовуючи функцію random(100).Скільки вньому є чисел більших, ніх 20 і менших, ніж 60? ( Зробити у Pascal).

Помогите решить задачу! Створіть і виведіть масив з 20-ти випадкових цілих чисел з діапазону (0;100),використовуючи функцію random(100).Скільки вньому є чисел більших, ніх 20 і менших, ніж 60? ( Зробити у Pascal).
Гость
Ответ(ы) на вопрос:
Гость
var   a: array [0..20] of integer;  i, c: integer; begin  for i := 0 to 20 do    begin      a[i] := random(100);    end;  for i := 0 to 20 do    begin      writeln(a[i]);    end;  for i := 0 to 20 do    begin      if (a[i]>20) and (a[i]<60) then        c := c + 1;    end;  write('Чисел, больших 20 и меньших 60: ');  write(c);   end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы