program Lab;
const
N= 5;
var
F: Text;
B: array[1..5, 1..N] of Longint;
D: array[1..N] of Longint;
I, J: Longint;
function Sum(X: Longint): Longint;
var
Res, I: Longint;
begin
Res:= 0;
for I:= 1 to 5 do
if B[I, X] > 0 then
Inc(Res, B[I, X]);
Sum:= Res;
end;
begin
System.Assign(F, 'Output.txt');
Rewrite(F);
Writeln('B:');
Writeln(F, 'B:');
Randomize;
for J:= 1 to N do begin
for I:= 1 to 5 do begin
B[I, J]:= Random(100)- 50;
Write(B[I, J]: 4);
Write(F, B[I, J]: 4);
end;
Writeln;
Writeln(F);
end;
Writeln('D:');
Writeln(F, 'D:');
for J:= 1 to N do begin
D[J]:= Sum(J);
Write(D[J]: 4);
Write(F, D[J]: 4);
end;
Close(F);
Readln;
end;
Помогите с задачкой на двумерный массив!!!
Сформировать двумерный массив В размером Nx5 (N- количество строк, равное предпоследней цифре номера студенческого билета +2; 5 - количество столбцов) с помощью генератора случайных чисел и вывести элементы массива на экран и в файл. Вычислить сумму положительных элементов в каждой строке матрицы С (оформить вычисление сумм в виде процедуры). Из полученных сумм составить одномерный массив D. Вывести элементы массива D на экран и в файл!:(:(:(
Цитата: Malova
Сформировать двумерный массив В размером Nx5 (N- количество строк, равное предпоследней цифре номера студенческого билета +2; 5 - количество столбцов) с помощью генератора случайных чисел и вывести элементы массива на экран и в файл. Вычислить сумму положительных элементов в каждой строке матрицы С (оформить вычисление сумм в виде процедуры). Из полученных сумм составить одномерный массив D. Вывести элементы массива D на экран и в файл!:(:(:(
могу предложить решение на С#...
интересно на каком курсе преподают паскаль ;) ?
Цитата: flame_max
интересно на каком курсе преподают паскаль ;) ?
У нас в универе, например, у всех специальностей в первом семестре.