На слайде можно разместить-текст и фото, текст и 2 фото, только текст, только фото,видео, также какие-нибудь фигуры, чертежи,объемные фигуры
Если не правильно прощение!
Спасибо
Ответ дал: Гость
program xxx;
var i, n, s, k : integer;
a : array [1..20] of integer;
begin
write('введите n=');
readln(n)
writeln('введите элементы массива а: ' );
for i: =1 to n do
readln(a[i]);
s: =0;
k: =0;
for i: =1 to n do
if a[i] mod 8 = 0 then begin s: =s+a[i]; k: =1 end;
if k=0 then write ('элементов кратных 8 - нет')
else write('сумма элементов кратных 8 =', s);
readln
end.
Ответ дал: Гость
const m=10; n=12; var a: array [1..m,1..n] of integer; i,j: integer; sob: integer; sst: array[1..n]of integer; sstr: array[1..m]of integer; beginrandomize; for i: =1 to m do beginfor j: =1 to n do begina[i,j]: =random(10); write(a[i,j]: 3); end; writeln; end; sob: =0; for i: =1 to m do beginfor j: =1 to n do beginsob: =sob+a[i,j]; end; end; writeln('сумма всех элементов массива = ', sob); writeln; writeln; for i: =1 to m do beginsstr[i]: =0; for j: =1 to n do beginsstr[i]: =sstr[i]+a[i,j]; end; end; writeln('сумма элементов построчно'); for i: =1 to m do write(sstr[i]: 3); writeln; writeln; for j: =1 to n do beginsst[j]: =0; for i: =1 to m do beginsst[j]: =sst[j]+a[i,j]; end; end; writeln('сумма элементов по столбцам'); for j: =1 to n do write(sst[j]: 3); end.
Популярные вопросы