Задача по массиву

Ответить
Wred
Сообщения: 1
Зарегистрирован: 20 сен 2009, 12:00

Дан массив 3на3, найти среднее арифметическое 2 столбца матрицы. Помогите пожалуйста решить такую задачу в паскале.
Аватара пользователя
Sheka
Сообщения: 246
Зарегистрирован: 17 май 2009, 15:48
Контактная информация:

Cделаю за бутылку пива! Ася 255507394
Мои мысли настолько гениальны, что санитары уже приехали!
Ася 255507394.
dr.Jekill
Сообщения: 526
Зарегистрирован: 03 янв 2009, 23:17
Откуда: Voronezh
Контактная информация:

[syntax="pascal"]
uses crt;
var a:array[1..3,1..3] of real;
i,j: byte;
sr: real;
begin
clrscr;
for i:=1 to 3 do
begin
clrscr;
writeln('Stroka #',i,': ');
for j:=1 to 3 do
begin
write('-> ');
readln(a[i,j]);
end;
end;
sr:=0;
for i:=1 to 3 do sr:=sr+a[i,2];
sr:=sr/i;
writeln('Srednee arifmeticheskoe 2-go stolbca: ',sr:8:3);
readkey;
end.
[/syntax]
Нет религии выше истины
Хыиуду
Сообщения: 2442
Зарегистрирован: 06 мар 2005, 21:03
Откуда: Москва
Контактная информация:

sr:=0;
for i:=1 to 3 do sr:=sr+a[i,2];
sr:=sr/i;
writeln('Srednee arifmeticheskoe 2-go stolbca: ',sr:8:3);

Прекрасно заменяется на
writeln('Srednee arifmeticheskoe 2-go stolbca: ',(a[1,2]+a[2,2]+a[3,2])/3):8:3);
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Ответить