const
size = 10;
var
a : array[1..size] of integer;
i, SummN, Pr, Count: integer;
{SummN - сумма нечетных элементов
Pr - произведение элементов стоящих на четных местах
Count - количество отрицательных элементов}
begin
randomize;
SummN := 0; установка начальных значений
Pr := 1;
Count := 0;
write('Исходный массив: ');
for i := 1 to size do
begin
a[i] := random(56) - 5;
write(a[i], ' '); {вывод элемента массива}
if a[i] mod 2 = 1 then {проверка нечетный ли элемент массива}
SummN := SummN + a[i];
if i mod 2 = 0 then {проверка четная ли позиция}
Pr := Pr * a[i];
if a[i] < 0 then {проверка неотрицательный ли элемент}
inc(Count);
end;
writeln; {вывод результата}
writeln('Сумма нечетных элементов - ', SummN);
writeln('Произведение эелементов стоящих на четных местах - ', Pr);
writeln('Количество отрицательных элементов ', Count);
readln;
end.
//Вторая программа
const
size = 6;
var
c:array[1..size] of char;
i, count:integer;
// count - количество запятых
begin
count := 0;
for i := 1 to size do
begin
write('c[', i, '] = ');
readln(c[i]); считываем массив
if (c[i] >='a') and (c[i] <= 'z') then {проверяем маленькая ли латинская буква}<br> c[i] := Chr(ord(c[i]) - 32); {меняем на большую букву}
if (c[i] >= 'а') and (c[i] <= 'я') then {проверяем маленькая ли русская буква<br> c[i] := Chr(ord(c[i]) - 32); меняем на большую букву}
if c[i] = ',' then
inc(count);
end;
writeln; {вывод результата}
writeln('Результат:');
for i := 1 to size do
begin
writeln('c[', i, '] = ', c[i]);
end;
writeln('Количество запятых ', count);
end.
//Третья программа
const
size = 10;
var
a : array[1..size] of integer;
i, Summ,Pr, Count: integer;
{Summ - сумма положительных элементов стоящих на четных местах
Pr - произведение элементов стоящих на нечетных местах и кратных 3
count - количество двузначных чисел}
begin
randomize;
Summ := 0;
Pr := 1;
Count := 0;
write('');
for i := 1 to size do
begin
a[i] := random(601) - 100;
write(a[i], ' ');
if (i mod 2 = 0) and (a[i] > 0) then
Summ := Summ + a[i];
if (i mod 2 = 1) and (a[i] mod 3 = 0) then
Pr := Pr * a[i];
if (a[i] div 10 <> 0) and (a[i] div 100 = 0) then
inc(Count);
end;
writeln;
writeln('Сумма положительных элементов стоящих на четных местах ', Summ);
writeln('Произведение элементов стоящих на нечетных местах и кратных 3 ', Pr);
writeln('Количество двузначных чисел ', Count);
readln;
end.