Pascal. Помогите решить задачи
извиняюсь если не по теме,помогите написать в Pascale 3 задачи:
1)Дана последовательность натуральных чисел А1,А2,...,Аn.Создать массив из чётных чисел этой последовательности.Если таких чисел нет,то вывести сообщение об этом факте.
2)Последовательность А1,А2,...,Аn состоит из нулей и единиц.Поставить в начало этой последовательности нули,а затем единицы
Точность не гарантирую, но постараюсь помочь:
Program massiv_chet;
var n, m: integer;
posl: array [1..n] of real;
mas: array [1..m] of real;
Begin
writeln ('введите количество елементов масива!!!!!');
readln (n);
writeln ('введите елементы массива!!!!!!!');
for i:=1 to n do
Begin
write ('posl[',i,']=');
readln (posl[i]);
end;
m:=0;
for i:=1 to n do
if posl[i] mod2=0 then
m:=m+1;
end;
if m=0 then
writeln ('чётных чисел в последовательности нет');
End.
Вот... ну а нащёт выведения итогового массива ты не написал.
Первая задача
var
n,m,i,d:Integer;
arr:array[0..29]of real;
begin
writeln('Количество элементов...');
readln(n);
writeln('Элементы...');
for i := 1 to n do
begin
writeln('arr[i] =');
readln(d);
if d mod 2 = 0 then
arr[i] := arr[i] + d;
end;
end.
Вторая задача
var
mas:array[0..10]of Integer;
i,a,z,b,sum,inc:Integer;
begin
writeln('Enter znach...');
b:= 0;
sum:= 0;
inc:= 0;
readln(z);
repeat
readln(a);
if (a > 1) and (a < 0) then
writeln('Error');
b:= b + 1;
mas[b]:= mas[b] + a;
until z = b;
for i := 0 to z — 1 do
begin
if mas[i] = sum then
begin
sum:= mas[i];
writeln(sum);
inc:= inc + 1;
end;
end;
for i := 0 to (z — inc) −1 do
writeln(1);
Третья задача — непонятна формулировка:(
Правильность, конечно не гарантирую, но суть наверное такая