Const
m=3;
n=m;
var
i,j:integer;
a:array[1..n,1..m]of integer;
Begin
{Ввод массива с клавы}
for i:=1 to n do
for j:=1 to m do readln(a[i,j]);
{/Ввод массива с клавы}
{Вывод в обшеперинятом виде}
for i:=1 to n do begin
for j:=1 to m do write(a[i,j]);
writeln;
end;
{/Вывод в обшеперинятом виде}
End.
pascal плиззз!
Помогите если сможете решить задачки!
1.Дан двумерный массив X[N,M], где значения элементов массива и их количество вводятся с клавиатуры. На экран вывести матрицу в общепринятом виде, среднее арифметическое отрицательных элементов четных строк массива и их количество.
2.Дан двумерный массив X[N,M], где значения элементов массива заданы случайным образом, а их количество вводится с клавиатуры. Найти столбец с минимальной суммой элементов
:confused:
1.Дан двумерный массив X[N,M], где значения элементов массива и их количество вводятся с клавиатуры. На экран вывести матрицу в общепринятом виде, среднее арифметическое отрицательных элементов четных строк массива и их количество.
2.Дан двумерный массив X[N,M], где значения элементов массива заданы случайным образом, а их количество вводится с клавиатуры. Найти столбец с минимальной суммой элементов
:confused:
[COLOR=red]вопросы типа: "Помогите, т.е. сделайте вместо меня" постим только в разделе "Студенты. Неинформативное название темы! читай правила, инече буду закрывать такии темы.
[/COLOR]
[/COLOR]
Ну с 1 я чуть чуть помогу....:
:D
Код:
:D