Паскаль. Заполните двумерный массив 3х4 целыми числами с клавиатуры. Выведите его на экран. Найдите сумму элементов каждой строки.
Помогите пожалуйста, только не заумными командами, т.к. Только начали изучать Паскаль
Помогите пожалуйста, только не заумными командами, т.к. Только начали изучать Паскаль
More Questions From This User See All
Answers & Comments
i,j,s: integer;
begin
for i:=1 to 3 do
begin
write('строка ',i,': ');
for j:=1 to 4 do read(a[i,j]);
end;
// вывод массива на экран
writeln('массив а по строкам:');
for i:=1 to 3 do
begin
for j:=1 to 4 do write(a[i,j]:4);
writeln;
end;
// суммы элементов по строкам
for i:=1 to 3 do
begin
s:=0;
for j:=1 to 4 do s:=s+a[i,j];
writeln('сумма элементов строки ',i,': ',s);
end;
end.
ввод - вывод
строка 1: 10 11 12 13
строка 2: 14 15 16 17
строка 3: 18 19 20 21
массив а по строкам:
10 11 12 13
14 15 16 17
18 19 20 21
сумма элементов строки 1: 46
сумма элементов строки 2: 62
сумма элементов строки 3: 78