Программа:
Pascal:
var
A: array[1..20] of integer;
K: integer;
begin
K := 1;
for var i := 1 to 20 do begin
A[i] := K + 7;
inc(K, 2);
end;
writeln(A);
end.
Результат:
[8,10,12,14,16,18,20,22,24,26,28,30,32,34,36,38,40,42,44,46]
//первая программа
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.
var k, i: integer;
A: array[1..20] of integer;
begin
k := 1;
for i:= 1 to 20 do begin
A[i] := k + 7;
k := k + 2;
end;
for i:= 1 to 20 do begin
write(A[i], ' ');
end;
end.
Объяснение: