Cоставьте программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 20 и выводит на экран элементы, значения которых больше 5 и меньше 15
Ответы
Ответ дал:
0
На 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.
Не забудь скомпилировать и отписаться, я мог допустить опечатку
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.
Не забудь скомпилировать и отписаться, я мог допустить опечатку
Ответ дал:
0
после writeLN точку с запятой, кстати, указывай язык, на котором надо отвечать
Вас заинтересует
1 год назад
1 год назад
8 лет назад
8 лет назад