Заполните массив из 10 целых чисел через генератор случайных чисел в диапазоне от 3 до 10 и найти кол-во элементов массива значение которых равно 4 (в паскаль)FREE PASCAL
Заполните массив из 10 целых чисел через генератор случайных чисел в диапазоне от 3 до 10 и найти кол-во элементов массива значение которых равно 4 (в паскаль)FREE PASCAL
Гость
Ответ(ы) на вопрос:
Гостьvar i,k : integer;
a: array[1..10] of integer;
Begin
for i := 1 to 10 do begin
a[i] := random(7) + 3;
if a[i] = 4 then k:= k + 1;
end;
writeln(k);
End.
Не нашли ответ?
Похожие вопросы