Как найти сумму элементов 1 строки?
10-11 класс
|
program sbb;
uses crt;
var
i,j,s:integer;
a:array[1..5,1..10] of integer;
begin
for i:=1 to 5 do
begin
for j:=1 to 10 do
begin
random(50);
a[i,j]:=random(50);
write(' ');
write(a[i,j]);
end;
writeln
end;
Uses crt;
Var
i,j,s:integer;
a:array[1..5,1..10] of integer;
Begin
for i:=1 to 5 do
begin
for j:=1 to 10 do
begin
random(50);
a[i,j]:=random(50);
write(' ');
write(a[i,j]);
if i=1 then begin
s:=s+a[i,j];
end;
end;
writeln
end;
writeln(s);
end.
Так же можно сделать чтобы искалась сумма каждой строки, например вот код на скрине...
Другие вопросы из категории
поверхности, суммы ребер прямоугольного параллелепипеда.
2. Найти все двузначные числа, сумма квадратов которых делится на 17.
Всё это нужно сделать в программе Паскаль, но КАК?!
технологии и их применение на практике" 11 класс (пожалуйста, хорошая работа нужна)
Читайте также
четных столбцов. Если эта сумма положительна, то все элементы нечетных строк возвести в квадрат. В противном случае ко всем элементам побочной диагонали прибавить число 2.
Вывести на экран массив в виде таблицы и сумму элементов массива.
нечетных местах , сменить знак на противоположный ,иначе выдать соответствующее сообщение.
2.Дан массив X(N,M) . Среди четных столбцов массива найти сумму положительных элементов
3.Найти произведение элементов каждого столбца массива принадлежащих промежутку [2,6] . Из полученных значений сформировать одномерный массив.
от -10 до 30.найти кол-во положит и отриц элементов.найти сумму положит и произведение отриц.
и В(3*3). Вывести на экран тот из них, у которого меньше сумма элементов главной диагонали.
17.Дан массив А(3*4). Заменить все отрицательные элементы на противоположные.