Помогите решить задачу! Створіть і виведіть масив з 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.
Не нашли ответ?
Похожие вопросы