Наибольшее числа из А1+А6... А2+А7 до А5+А10
Подсчитать А1+А6... А2+А7 до А5+А10 . И найти среди них наибольшее
Решение:
Program massiv;
cоnst n=10;
var
A:array [1..n] of
integer;
i,p:integer;
BEGIN
for i:=1 to n do begin
write('A[',i,']=');
readln(A);
end;
A[1]=A[1]+A[6];
A[2]=A[2]+A[7];
A[3]=A[3]+A[8];
A[4]=A[4]+A[9];
A[5]=A[5]+A[10];
Max:=A[1];
for i:=2 to 5 do if Max<= A[i] then Max:=A[i];
writeln
('Максимальное число = ', Max);
END.
|
| Категория: Массивы | Добавил: deespe (30.01.2011)
|
| Просмотров: 956
| Рейтинг: 0.0/0 |
|
