Ответы и объяснения

2012-11-07T21:17:08+04:00

Только уточнение, в 1 задаче надо равные 5 или кратные 5? Просто равные пяти звучит подохрительно и просто. Остальные сделаю, если успею по мере возможностей.

 

 

 

 

 

uses crt;
var
o:array[1..10] of integer;
x:integer;
begin
for x:=1 to 10 do
begin
write('введите ',x,' элемент массива ');
readln(o[x]);
end;

for x:=1 to 10 do
begin
if o[x]=5 then o[x]:=5*6;
write(o[x],' ');
end;
end.

 

 

 

 4.1

 

 

 

uses crt;
var
o:array[1..10] of integer;
x:integer;
s:real;
begin
for x:=1 to 10 do
begin
write('введите ',x,' элемент массива ');
readln(o[x]);
end;

for x:=1 to 5 do
s:=o[x*2-1]+s;
s:=s/2;
write('Полусумма элементов с нечетным индексов = ',s);
end.

 

 

 

4.2

 

 

 

 

uses crt;
var
o:array[1..10] of integer;
x,k:integer;
s:real;
begin
for x:=1 to 10 do
begin
write('введите ',x,' элемент массива ');
readln(o[x]);
end;
s:=0;
for x:=1 to 10 do
s:=o[x]+s;
s:=s/10;
k:=0;
for x:=1 to 10 do
if o[x]>s then k:=k+1;
write('В этом массиве ',k,' чисел, которые больше сдеднего арифметического');


end.

 

 

На 5 сегодня скорей всего не успею, да и времери нет, завтра напишу, возможно.