Предмет: Информатика,
автор: 123super123
Составьте программу( Pascal), которая заполняет массив a (1..10) случайными целыми числами от 1 до 20 и выводит на экран элементы, значения которых больше 5 и меньше 15
Ответы
Автор ответа:
0
var a:array [1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
begin
a[i]:=rndom(20)+1;
write(a[i],' ')
end;
writeln;
for i:=1 to 10 do
if (a[i]>5) and (a[i]<15) then write(a[i],' ')
end.
i:integer;
begin
for i:=1 to 10 do
begin
a[i]:=rndom(20)+1;
write(a[i],' ')
end;
writeln;
for i:=1 to 10 do
if (a[i]>5) and (a[i]<15) then write(a[i],' ')
end.
Автор ответа:
0
там исправь слово rndom на random
Автор ответа:
0
ОК! Спасибо!
Автор ответа:
0
Program program1;
var
a:array [1..10] of integer;
int:integer;
begin
for int:=1 to 10 do
begin
a[int]:=rndom(20)+1;
write(a[int],' ')
end;
writeln;
for int:=1 to 10 do
if (a[int]>5) and (a[int]<15) then write(a[int],' ')
end.
var
a:array [1..10] of integer;
int:integer;
begin
for int:=1 to 10 do
begin
a[int]:=rndom(20)+1;
write(a[int],' ')
end;
writeln;
for int:=1 to 10 do
if (a[int]>5) and (a[int]<15) then write(a[int],' ')
end.
Автор ответа:
0
не странно ли, что ошибка в синтаксисе такая же, как у меня?
Автор ответа:
0
Скатал у тебя!
Интересные вопросы
Предмет: Математика,
автор: slencakmihail12
Предмет: Математика,
автор: nurdanamynzasar
Предмет: Математика,
автор: madinka3638
Предмет: Математика,
автор: aman200305
Предмет: Математика,
автор: kornev2004