Паскаль! Срочно!
5-9 класс
|
1)Написать
программу, которая из заданного одномерного массива размерности
1) var i,n:integer;
c,d:integer;
a:array[1..1000] of integer;
begin write('введите c,d,n');
read(c,d,n);
for i:=1 to n do begin
a[i]:=random(100);
write(a[i],' ');
end;
for i:=1 to n do begin
if (a[i]>=c) and (a[i]<=d) then write(a[i],' ');
end;
end.
2) по ссылке на файл
Другие вопросы из категории
Задача:
Дано четырёхзначное число,найти сумму чисел этого числа.
тарифна ставка за 1 годину і кількість відпрацьованих годин за місяць.
Читайте также
min,max:integer; begin ClrScr; randomize; writeln('Исходный массив:'); for i:=1 to Nmax do begin m[i]:=random(20)-10; write(m[i],' '); end; max:=m[1]; min:=m[1]; i_min:=1; i_max:=1; for i:=1 to Nmax do begin if m[i]>max then begin max:=m[i]; i_max:=i; end; if m[i]
Команда Ливерпуля
выиграла футбольный матч у команды Ковентри со счетом A:B. Выведите результат матча в виде: Ливерпуль 4 Ковентри 1. Осуществите запрос A и B.
написать программу, которая вычисляет среднее арифметическое ненулевых элементов массива M[1..100], элементы которого вычисляются по формуле M[i]=sin(i)*cos(i)
и прошу не используйте интернет, а напишите сами по возможности.