Алгоритмы и программы. Афанасьева Т. В - 114 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

114
writeln('Для окончания работы нажмите enter');
readln;
readln;
end.
Пример 7.2. В одномерном массиве найти сумму положительных,
произведение отрицательных, количество четных элементов.
program a6;
var
a:array[1..10] of integer;
e,i,c,d:integer;
begin
writeln(' В одномерном массиве найти сумму положительных,');
writeln(' произведение отрицательных, кол-во четных элементов');
writeln;
writeln('Введите массив из 10 элементов через пробелы');
d:=0;
c:=1;
e:=0;
for i:=1 to 10 do
begin
read (a[i]);
if a[i]>0 then d:=d+a[i] ;
if a[i]<0 then c:=c*a[i] ;
if a[i] mod 2 =0 then e:=e+1 ;
end;
writeln;
writeln('Результат:');
if d<>0 then writeln('Сумма положительных элементов d= ',d)
else writeln('Положительных нет.');
if c<>1 then writeln('Произведение отрицательных элементов c= ',c)
else writeln('Отрицательных нет.');
if e<>0 then writeln('Кол–во четных элементов e= ',e)
else writeln('Четных нет.');
readln;
readln;
end.
Пример 7.3. Найти минимальное значение элемента массива и его
порядковый номер.
program a3;
const
nmax=10; {количество элементов в массиве}

Страницы