дан двумерный массив 4 из 4 строк и 7 столбцой. Найти сумму положительных элементов массива.
10-11 класс
|
uses crt;
const n=4; m=7;
var a:array[1..n,1..m] of integer;
i,j,s: integer;
begin
randomize;
s:=0;
for i:=1 to n do
for j:=1 to m do
begin
a[i,j]:=random(101)-50;
write(a[i,j]:4);
end;
writeln;
for i:=1 to n do
for j:=1 to m do
if (a[i,j]>0) then s:=s+a[i,j];
writeln(s);
end.
Другие вопросы из категории
описать данную программу словами! как в примере:
Начало t1
Приглашение для ввода строки
Ввод строки
Задать начальные значения переменных
Обработка строки
Вывод результата - какой д. б. результат?
Конец t1
Конец t1
Program ww;
var k,s:string;
i:integer;
begin
writeln ('Введите слово из четного числа букв');
readln (s);
k:= 'vv';
writeln ('обработка строки');
for i:=1 to round(length(s)/2) do
k:=k+s[i];
s[i]:=s[length(s)-i];
s[length(s)-i]:=k; }
writeln (k); {Вывод результата}
end.
К нему дописывается результат сложения средних разрядов по такому правилу: если он меньше первой суммы, то полученное число приписывается к первому слева, иначе – справа. Итоговое число получают приписыванием справа к числу, полученному после второго шага, сумму значений младших разрядов исходных чисел. Какое из перечисленных чисел могло быть построено по этому правилу? 1) 141310 2) 102113 3) 101421 4) 101413
Дана целая квадратная матрица, n- го порядка. Определить, является ли она магическим квадратом, т.е. такой, в которой сумма элементов во всех строках и столбцах одинаковая.
данные: вывести количество содержащихся в ней прописных латинских букв.
2)дана строка, состоящая из русских слов, набранных заглавными буквами и разделенных пробелами (одним или несколькими). найти количество слов, которые начинаются и заканчиваются одной и той же буквой.
Читайте также
нечетных местах , сменить знак на противоположный ,иначе выдать соответствующее сообщение.
2.Дан массив X(N,M) . Среди четных столбцов массива найти сумму положительных элементов
3.Найти произведение элементов каждого столбца массива принадлежащих промежутку [2,6] . Из полученных значений сформировать одномерный массив.
элементов.Найти колличество четных положительных элементов.
3)Дан массив из 6 элементов.Найти произвдение положительных из них.
расположенных между максимальным и минимальным элементами.
Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами
ну или исправьте мое пжл
program fgf;
var mas:array[1..100] of real;
max,min:real;
i,n,c,b:shortint;
p:real;
f1,g:text;
begin;
assign (f1, 'input.txt');
reset (f1);
readln (f1, n);
for i:=1 to N do read (mas[i]);
max:=mas[i];
for i:=2 to N do begin
if mas[i]>max then begin
max:=mas[i];
c:=i;
end;
end;
min:=mas[1];
for i:=2 to N do begin
if mas[i]<min then begin
max:=mas[i];
b:=i;
end;
end;
close(f1);
assign (g, 'output.txt');
rewrite (g);
p:=1;
if b<c then I:=b+1 and c-1
else for I:=c+1 to b-1 do p:=p*mas[i];
if (n<3) or (b+1=c) or (c+1=b) then writeln(g,'0.00') else write(p:3:3) ;
close (g);
end.
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.
1.Дано массив 5*5, заполнить массив случайными числами не больше 30 и найти сумму парных элементов массива, которые находятся под главной диагонали и количество не парных элементов которые находятся над главной диагонали.