Другие языки программирования и технологии
Помогите решить задачу по информатике. Массивы. Язык программирования Паскаль.
дан двумерный массив целых чисел. определить сумму элементов массива, больших 30.
А зачем тебе вообще объяснения на уроке? В учебниках и пособиях все написано гораздо яснее.
var i,j,m,n,s:integer; a:array[1..10,1..10]of integer;
begin
write('Введите размеры матрицы, разделив их пробелом: '); readln(m,n);
writeln('Введите значения элементов по строкам, разделяя элементы строки');
writeln(' пробелами и заканчивая ввод каждой строки нажатием Enter'); writeln;
for i:=1 to m do
begin write('Строка ',i:2,': '); for j:=1 to n do read(a[ i,j]); readln end;
writeln; s:=0;
for i:=1 to m do for j:=1 to n do if a[ i,j]>30 then s:=s+a[ i,j]; writeln('S=',s); readln
end.
var i,j,m,n,s:integer; a:array[1..10,1..10]of integer;
begin
write('Введите размеры матрицы, разделив их пробелом: '); readln(m,n);
writeln('Введите значения элементов по строкам, разделяя элементы строки');
writeln(' пробелами и заканчивая ввод каждой строки нажатием Enter'); writeln;
for i:=1 to m do
begin write('Строка ',i:2,': '); for j:=1 to n do read(a[ i,j]); readln end;
writeln; s:=0;
for i:=1 to m do for j:=1 to n do if a[ i,j]>30 then s:=s+a[ i,j]; writeln('S=',s); readln
end.
program massiv;
uses crt;
var a:array [1..100,1..100] of integer;
i,j,n,m,sum:integer;
begin
clrscr;
writeln('Введите количество строк: ');
readln(n); {считываем количество столбцов c клавиатуры}
writeln('Введите количество столбцов: ');
readln(m); {считываем количество строк c клавиатуры}
for i:=1 to n do
for j:=1 to m do
a[i,j]:=0; {Обнуляем все элементы массива}
writeln('Введите элементы матрицы: ');
for i:=1 to n do {с помощью этого считываем элементы массива с клавиатуры}
begin
for j:=1 to m do
begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
end;
writeln('Матрица: ');
for i:=1 to n do {с помощью этого цикла формируем матрицу и выводим ее на экран}
begin
for j:=1 to m do
write(a[i,j],' ');
writeln;
end;
for i:=1 to n do {в этом цикле идет поэлементная проверка, если элемент больше 30, то сумму увеличиваем на значение этого элемента}
begin
for j:=1 to m do
if a[i,j]>30 then
sum:=sum+a[i,j];
end;
writeln('Сумма элементов, больших 30 = ',sum); {выводим на экран сумму элементов}
readln;
end.
uses crt;
var a:array [1..100,1..100] of integer;
i,j,n,m,sum:integer;
begin
clrscr;
writeln('Введите количество строк: ');
readln(n); {считываем количество столбцов c клавиатуры}
writeln('Введите количество столбцов: ');
readln(m); {считываем количество строк c клавиатуры}
for i:=1 to n do
for j:=1 to m do
a[i,j]:=0; {Обнуляем все элементы массива}
writeln('Введите элементы матрицы: ');
for i:=1 to n do {с помощью этого считываем элементы массива с клавиатуры}
begin
for j:=1 to m do
begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
end;
writeln('Матрица: ');
for i:=1 to n do {с помощью этого цикла формируем матрицу и выводим ее на экран}
begin
for j:=1 to m do
write(a[i,j],' ');
writeln;
end;
for i:=1 to n do {в этом цикле идет поэлементная проверка, если элемент больше 30, то сумму увеличиваем на значение этого элемента}
begin
for j:=1 to m do
if a[i,j]>30 then
sum:=sum+a[i,j];
end;
writeln('Сумма элементов, больших 30 = ',sum); {выводим на экран сумму элементов}
readln;
end.
Создаете массив чисел и в цикле сравниваете элементы массива, больший результат записываете в переменную, которую и выводите
uses crt;
const n=100;
var
nechet,summ,i,j,a,b:integer;
sred:real;
arr:array [1..n,1..n] of integer;
begin
write('Введите размерность массива через пробел: ');
readln(a,b);
randomize;
summ:=0;
nechet:=0;
sred:=0;
for i:=1 to a do
for j:=1 to b do
arr[i,j]:=random(60)-15;
writeln('Исходный массив: ');
for i:=1 to a do begin
for j:=1 to b do
write(arr[i,j]:4);
writeln;
end;
for i:=1 to a do
for j:=1 to b do
if arr[i,j]>30 then summ:=summ+arr[i,j];
writeln('Сумма элементов массива больших 30: ', summ);
end.
Прошу простить, код спер, т. к. под рукой паскаля нет
uses crt;
const n=100;
var
nechet,summ,i,j,a,b:integer;
sred:real;
arr:array [1..n,1..n] of integer;
begin
write('Введите размерность массива через пробел: ');
readln(a,b);
randomize;
summ:=0;
nechet:=0;
sred:=0;
for i:=1 to a do
for j:=1 to b do
arr[i,j]:=random(60)-15;
writeln('Исходный массив: ');
for i:=1 to a do begin
for j:=1 to b do
write(arr[i,j]:4);
writeln;
end;
for i:=1 to a do
for j:=1 to b do
if arr[i,j]>30 then summ:=summ+arr[i,j];
writeln('Сумма элементов массива больших 30: ', summ);
end.
Прошу простить, код спер, т. к. под рукой паскаля нет
Похожие вопросы
- помогите решить задачу по информатике, срочно нужно ( программирование с++)
- Помогите решить задачу по информатике ...паскаль
- Народ, слезно прошу помочь решить задачу по информатике (програмирование), я просто ноль в этом(((
- Помогите решить задачу pascal. Двумерные массивы (подробно)
- Помогите решить задачу по информатике 10 класс
- Помогите решить задачи по информатике!!! ОЧЕНЬ НУЖНО!!!
- Ребята помогите решить задачу по информатике ПЛАЧУ 50 БАЛОВ ЗА ЛУТШИЙ ОТВЕТ
- помогите решить задачи по информатике
- Помогите решить задачу по програмированию на С#, либо паскаль.
- Помогите решить задачи по информатике.