Предмет: Информатика,
автор: lizolda1337
значение элементов двухмерного массива А[1..100,1..100] задаются с помощью следующего фрагмента.
Чему равна сумма элементов массива после выполнения этого фрагмента программы?
Приложения:

Ответы
Автор ответа:
0
S =-9800
var i,k,n,S:integer; A:array[1..100,1..100] of integer;
begin
for i:=1 to 100 do begin
for k:=1 to 100 do begin
if i = k then A[i,k]:= 1 else A[i,k]:= -1;
s:= s + A[i,k];end;end;
write('S =',S:5);
end.
var i,k,n,S:integer; A:array[1..100,1..100] of integer;
begin
for i:=1 to 100 do begin
for k:=1 to 100 do begin
if i = k then A[i,k]:= 1 else A[i,k]:= -1;
s:= s + A[i,k];end;end;
write('S =',S:5);
end.
Автор ответа:
0
Спасибо
Похожие вопросы
Предмет: Музыка,
автор: Аноним
Предмет: Математика,
автор: darinamuhammad7
Предмет: История,
автор: skvortsovadariay
Предмет: Математика,
автор: lol23568