Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Помогите решить что-нибудь из этого) Массивы... заранее спасибо)

Ответ оставил Гость

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 {проверяем маленькая ли латинская буква}
c[i] := Chr(ord(c[i]) - 32); {меняем на большую букву}
if (c[i] >= а) and (c[i] <= я) then {проверяем маленькая ли русская буква
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.