| Vladimir_S |
12.05.2010 12:00 |
Цитата:
Сообщение от Строитель
(Сообщение 333426)
Здравствуйте !!!!Я опять со своей задачей!!!!!два дня вас не беспокоил но вижу сам не справлюсь я не могу закончить программу(((кто нибудь может написать мне её от начала до конца пожалуйста!!!!!мне завтра сдавать (((БУДУ ОЧЕНЬ ПРИЗНАТЕЛЕН!!!!
ЗАДАНИЕ МОЖЕТЕ УВИДЕТЬ ВЫШЕ,А ТАКЖЕ НЕ ПОЛНУЮ ВЕРСИЮ ПРОГРАММЫ.
|
Ладно. Только вот что. Обозначения я использовал те, к которым привык, а именно:
1. Параметры i и n относятся к СТРОКАМ.
2. Параметры j и m относятся к СТОЛБЦАМ.
3. Обозначение матрицы n x m и, соответственно, массива A[1..n,1..m] означает n строк и m столбцов.
Код:
Program bukvaa;
uses crt;
const
n=10;
m=9;
var i,j:integer;
s:real;
a:array[1..n,1..m] of real;
begin
clrscr;
writeln('vvedite massiv');
for i:=1 to n do
for j:=1 to m do
begin
Write('a[',i,',',j,']= ');
ReadLn(a[i,j]);
end;
writeln;
for i:=1 to n do
begin
for j:=1 to m do
Write(a[i,j]:8:3);
writeln;
end;
WriteLn('Press "Enter" to continue');
ReadLn;
for j:=1 to m do
begin
s:=0;
for i:=1 to n do
s:=s+a[i,j];
s:=s/n;
writeln('srednee arifmeticheskoe elementov ',j,' stolbza',s:8:3);
end;
WriteLn('Press "Enter" to continue');
ReadLn;
for j:=1 to (m div 2) do
begin
s:=0;
for i:=1 to n do
s:=s+a[i,2*j];
s:=s/n;
writeln('srednee arifmeticheskoe elementov ',2*j,' stolbza',s:8:3);
end;
ReadLn;
end.
|
