сервис вопросов и ответовСоставьте программу вычисления суммы положительных элементов двухмерного массива
10-11 класс|
|
Rom4ikbal
10 окт. 2014 г., 16:08:33 (9 лет назад)
Lampadova
10 окт. 2014 г., 18:00:36 (9 лет назад)
var a,b,c:array [1..100,1..100] of integer;as,bs,cs,i,j:integer;Begin sb:=1; for i := 1 to n do for j:= 1 to n do begin if a[i,j]<0 then sa:=sa+a[i,j]; if b[i,j]>0 then sb:=sb*b[i,j]; if j=3 then sc:=sc+c[i,j]; end; writeln(sa,sb,sc);End.
Ответить
Другие вопросы из категории
Читайте также
1)составьте программу вычисления суммы чисел в диапазоне от 45 до 115 45+....+115
2)Составьте программу которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150
3)Дано вещественное число А и целое число N(>0).Испульзуя один цикл вывести все целые степени числа А от 1 до N
------------------------ОПЕРАТОР WHILE
составьте программу,которая запрашивает значение элементов одномерного массива A,состоящего из 10 элементов,формирует и выводит на экран в строку данный
массив.Найти сумму определённого элемента;количество элементов,стоящих на нечетных местах;произведение элементов,кратных 5.
Составить программу на языке паскаль
задание: дана матрица А(N, N). Составить программу подсчета количества положительных элементов, расположенных выше главной диагонали
дана программа нахождения суммы всех элементов массива. Изменить программу таким образом,чтобы:
a) массив состоял из 15 элементов вещественного типа;
b) значения элементов массива должны меняться в интервале от 0 до 5;
c) в результате выполнения программы должно быть найдено произведение всех элементов массива, а не их сумма
Program massiv;
const n=10;
Var a: array [1..n] of integer;
s,i integer;
Begin
writeln (‘ исходный массив.‘);
For i:= 1 to n do
begin
a [ i] := random (10);
write (‘a[‘i'] =', a[i], '');
end;
s:=0;
For i:= 1 to n do
s:= s+a[i];
Writeln (‘ сумма всех элементов массива S=‘, s);
end.
Вы находитесь на странице вопроса "Составьте программу вычисления суммы положительных элементов двухмерного массива", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.