for i:=1 to 10 do
if a=0 then
for j:=i to 9 do
a[j]:=a[j+1];
помогите решить задачку пожалуйста!
Определить максимальный и минимальный элементы среди положительных и нечётных элементов одномерного целочисленного массива. Удалить из него все нулевые элементы.
Покажите, что уже сделали.
Цитата: George
Покажите, что уже сделали.
program rabota;
uses crt;
var a: array[1..10] of integer; i,n,max,min:integer;
begin
max:=-32767;
min:=32767;
writeln ('Vvedite massiv:');
for i:=1 to 10 do
read(a);
readln;
begin
for i:=1 to 10 do
if (a>max)and(a mod 2=1)and(a>0) then max:=a;
end;
begin
for i:=1 to 10 do
if (a<min)and(a mod 2=1)and(a>0) then min:=a;
end;
writeln ('max:=',max);
writeln ('min:=',min);
end.
Осталось только удалить нулевые элементы массива!
Цитата:
удалить нулевые элементы массива
ну как вариант, навскидку вот так набросал
Код:
надо еще вывести этот массив без нулевых элементов
Цитата: impulse1990
надо еще вывести этот массив без нулевых элементов
Код:
var
A: array...;
I: Integer;
begin
for I := 0 to Length(A) - 1 do
if A <> 0 then
Write(A, ' ');
end;
A: array...;
I: Integer;
begin
for I := 0 to Length(A) - 1 do
if A <> 0 then
Write(A, ' ');
end;
и да, оформляйте код, тов. Импульс ;)
помогите решить задачу
Составить программу вычисления координат вектора с=2a+3b, если заданы векторы a(a1,a2)иb(b1,b2).Вычисление координат вектора оформить в виде подпрограммы-процедуры.
Составить программу вычисления координат вектора с=2a+3b, если заданы векторы a(a1,a2)иb(b1,b2).Вычисление координат вектора оформить в виде подпрограммы-процедуры.
zark,сам что сделал?
Составить программу которая определяет для двух вводимых натуральных чисел M и N сумму их общих делителей
Цитата: UnDead79
Составить программу которая определяет для двух вводимых натуральных чисел M и N сумму их общих делителей
И в чем собственно затык?