Pascal дан массив вещественных чисел. найти сумму и количество отрицательных с нечетными номерами элементов, расположенных в первой половине массива (включая середину) ограничения: -число элементов в матрице не более 10-ти порядок ввода исходных данных: -число элементов в массиве -элементы массива порядок вывода результатов: -значение суммы с точностью до одного знака после запятой, ограничить ширину поля вывода результата 7-ю позициями, количество таких элементов или сообщение "элементы не найдены"
Ответы
//pascal abc.net v3.0 var ma: array of array of integer; i,j,s,m: integer; begin randomize; readln(m); setlength(ma,m+1); for i: =1 to m do setlength(ma[i],m+1); writeln('matrix: '); for i: =1 to m do begin; writeln; for j: =1 to m do begin; ma[i,j]: =random(-30,40); write(ma[i,j]: 4); end; end; for i: =1 to m do for j: =i+1 to m do s+=ma[i,j]; writeln; writeln('result: ',s); end.
//pascal abc.net v3.0 var ma: array of array of integer; i,j,s,m: integer; begin randomize; readln(m); setlength(ma,m+1); for i: =1 to m do setlength(ma[i],m+1); writeln('matrix: '); for i: =1 to m do begin; writeln; for j: =1 to m do begin; ma[i,j]: =random(-30,40); write(ma[i,j]: 4); end; end; for i: =1 to m do for j: =i+1 to m do s+=ma[i,j]; writeln; writeln('result: ',s); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
решить задание по информатике
Автор: ЕленаГерасимова
Определи, является ли высказыванием. приготовь ужин. является высказыванием не является высказыванием
Автор: Anzhelika-Bulanov802
var a: array[1..10]of integer;
n,i,k: integer;
s: real;
begin
readln(n);
for i: =1 to n do readln(a[i]);
i: =1;
while i< =n do begin
if a[i]< 0 then begin inc(k); s: =s+a[i]; end;
i: =i+2;
end;
if k< > 0 then writeln(s: 0: 7,' ',k) else writeln('элементы не найдены');
end.