Дан массив в, содержащий 2 строки и 4 столбца. составить программу нахождения суммы элементов этого массива. сделать, желательно с объяснениями, просто пропустил эту тему: (
// PascalABC.Net 3.0, сборка 1066 begin var a:=MatrixRandom(2,4,-25,25); Writeln('Исходная матрица: ',a); var s:=0; for var i:=0 to 1 do for var j:=0 to 3 do s+=a[i,j]; Writeln('Сумма элементов равна ',s) end.
Тестовое решение: Исходная матрица: [[-15,-12,-9,5],[-8,-3,-23,7]] Сумма элементов равна -58
Program yeah; var a,b,c,d,n:integer; begin writeln('введите число.(0-юноша,1-девушка).'); readln(n); if n=0 then begin writeln('введите вес'); readln(a); writeln('введите рост'); readln(b); if b=110 then begin if a<=b then writeln('юноша принят.'); end; if a>b then writeln('не подходит по весу.'); if b<>110 then writeln('не подходит по росту.'); end; if n=1 then begin writeln('введите вес'); readln(a); writeln('введите рост'); readln(b); if b=115 then begin if a<=b then writeln('девушка принята.'); end; if a>b then writeln('не подходит по весу.'); if b<>115 then writeln('не подходит по росту.'); end; end.
Идея компьютера была предложена английским математиком Чарльзом Бэбиджем (Charles Babage) в середине девятнадцатого века. Его механическая «аналитическая машина» так и не смогла по-настоящему заработать, потому что технологии того времени не удовлетворяли требованиям, необходимым для изготовления нужных деталей точной механики. Конечно, никакой речи об операционной системе для этого «компьютера» не шло. Настоящее рождение цифровых вычислительных машин произошло вскоре после окончания Второй мировой войны. В середине 40-х были созданы первые ламповые вычислительные устройства. В то время одна и та же группа людей участвовала и в проектировании, и в эксплуатации, ив программировании вычислительной машины. Это была скорее научно-исследовательская работа в области вычислительной техники, а не использование компьютеров в качестве инструмента решения каких-либо практических задач из других прикладных областей.
begin
var a:=MatrixRandom(2,4,-25,25);
Writeln('Исходная матрица: ',a);
var s:=0;
for var i:=0 to 1 do
for var j:=0 to 3 do
s+=a[i,j];
Writeln('Сумма элементов равна ',s)
end.
Тестовое решение:
Исходная матрица: [[-15,-12,-9,5],[-8,-3,-23,7]]
Сумма элементов равна -58