Cоставьте программу, которая заполняет массив а [1..10] случайными целыми числами в...

Question

Cоставьте программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 20 и выводит на экран элементы, значения которых больше 5 и меньше 15

Answer 1

На Pascal:

program znanija;

uses Math;//если на Delphi, то System.Math

var a: array [0..10] of integer;

begin
for I := low(a) to high(a)do
begin
a[I] := randomrange(1, 20);
if (a[I] > 5) and (a[I] < 15) then
writeLN(a[I])
end;
end.

Не забудь скомпилировать и отписаться, я мог допустить опечатку

Comments

после writeLN точку с запятой, кстати, указывай язык, на котором надо отвечать