Срочно! Скласти програми до трьох задач!№1. В одновимірному масиві А[1..10] порахувати середнє арифметичне елементів з парними індексами. №2. В двовимірному масиві В[1..3,1..3] знайти добуток елементів які знаходяться на непарн...
Срочно! Скласти програми до трьох задач!
№1. В одновимірному масиві А[1..10] порахувати середнє арифметичне елементів з парними індексами. №2. В двовимірному масиві В[1..3,1..3] знайти добуток елементів які знаходяться на непарних рядках. Порахуваті середнє арифметичне всіх від'ємних елементів. №3. В слові "Мадагаскар" поміняти літери місцями.
Гость
Ответ(ы) на вопрос:
Гость//первая программа var
a:array[1..10] of integer;
Sr, i:integer;
begin
Sr := 0;
for i := 1 to 10 do
begin
write('a[', i, '] = ');
readln(a[i]);
if i mod 2 = 0 then
Sr := Sr + a[i];
end;
writeln('Среднее арифметическое элементов стоящих на четных местах: ', Sr /(10 div 2));
end. //вторая программа var
a:array[1..3, 1..3] of integer;
Pr, count, summ, i, j:integer;
begin
pr := 1;
summ := 0;
count := 0;
for i := 1 to 3 do
for j := 1 to 3 do
begin
write('a[', i, ', ', j, '] = ');
readln(a[i, j]);
if i mod 2 = 1 then
pr := pr * a[i, j];
if a[i, j] < 0 then
begin
summ := summ + a[i, j];
count := count + 1;
end;
end;
writeln('Произведение элементов стоящих в четных строках: ', pr);
if count <> 0 then
writeln('Среднее арифметическое отрицательных элементов: ', summ / count)
else
writeln('Нет ни одного элемента отрицательного элемента');
end.
//третья программа var
s:string;
c:char;
i:integer;
begin
s := 'Мадагаскар';
writeln('Исходная строка: ');
writeln(s);
for i := 1 to Length(s) div 2 do
begin
c := s[i];
s[i] := s[Length(s) - i + 1];
s[Length(s) - i + 1] := c;
end;
writeln('Перевернутая строка:');
writeln(s);
end.
Не нашли ответ?
Похожие вопросы