Задачи по Pascal помогите 1)Дан массив из конечного числа элементов вывести все отри
Задачи по Pascal помогите
1)Дан массив из конечного числа элементов вывести все отрицательные
элементы.
2)Дан одномерный массив найти все четные элементы массива.
3)Дано n целых чисел найти произведение элементов одномерного массива.
4)Упорядочить данную последовательность по убыванию элементы вводятся с клавиатуры
5)Массив задан датчиком случайных чисел на интервале от -31 до 45 сформировать новый массив b состоящий из нечетных элементов массива a.
Гость
Ответ(ы) на вопрос:
Гость var mas:array of integer; sum ,j, i,n:integer;
begin////////////////////////////////////////ввод числа///////////////////////////////////////////
while n<>0 do
begin
write('x: ' );
readln(n);
if n=0 then
break
еlse
begin
setlength(mas,length(mas)+1);
mas[high(mas)]:=n;
end;
end;////////////////////////////////////////////////////////////////////////////////////////////////////////// writeln('Otrisatelni');/////////////////////////////////////////////////1)///////////////////////////////
For i:= 0 to high(mas) do
if mas[i]<0 then
write(mas[i]); writeln('Chetni');////////////////////////////////////////////////////////////2)/////////////////////////
For j:= 0 to high(mas) do
if mas[j]mod 2=0 then
write(mas[j]);
writeln('Proizvedenie');//////////////////////////////////3///////////////////////////////////////
sum:=1;
For i:= 0 to high(mas) do
sum:=sum*mas[i];
write(sum);
readln;
end.
Не нашли ответ?
Похожие вопросы