Turbo Pascal
5-9 класс
|
Дан одномерный массив А(i), i = 15, заданный случайным образом. Вывести на экран массив, значения которого находятся в диапазоне [-20;20]
const
N = 15;
var
a :array [1..N] of integer;
i :integer;
begin
randomize;
for i:= 1 to N do
a[i]:= random(100)-50;
for i:= 1 to N do
if (a[i] >= -20) and (a[i] <= 20) then
writeln(a[i]);
end.
Другие вопросы из категории
В общем нужно придумать 2 задачи для Чертёжника с повторяющимися алгоритмами.
Допустим:
поднять перо
сместиться на вектор 4;5 и т.д. ПРОШУ!!! :)
Читайте также
if A>B then S: = A+B;
writeln (S);
Варианты ответов:1)5 ;2)6; 3)7; 4)8
2. Какое значение переменной S будет напечатано после выполнения фрагмента программы, записанной на языке программирования PASCAL:
S: =1;
N: =1;
while N<=3 do
begin
S: = S*N;
N: = N+1;
end;
writeln(S);
Варианты ответов: 1)2 ; 2)1; 3)0; 4)4
в результате работы следующего фрагмента программы:
var k,s:integer;
begin
s:=0;
k:=1;
while k<11 do begin
s:=s+k;
k:=K+1;
end;
write(s);
end.
1.1 Запишите этот же фрагмент с помощью оператора Repeat...until
2) Значения двух массивов A[1..100] и B[1..100] задаются с помощью следующего фрагмента программы:
for n:=1 to 100 do
A[n]:=n-10;
for n:=1 to 100 do
B[n]:=A[n]*n;
Сколько элементов массива B будут иметь положительные значения?
а)10 б)50 в)90 г)100