for i: =1 to 10 do begin readln(a); if a> 0 then s: =s+a; end;
writeln(s);
end.
rykovatv6
16.05.2022
Вы даже изначальную строку с ошибками! сая большая социальная сеть в россиисэто судя по всему ответ номер 1. обоснование: const ss = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя'; var s : string; i : byte; begin s: ='фгв дсояыгв фсщлгояргв фзхя е усффллфахс'; for i: =1 to length(s) do if pos(s[i],ss)> 0 then if pos(s[i],ss)> 3 then s[i]: =ss[pos(s[i],ss)-3] else s[i]: =ss[length(-pos(s[i],ss))]; writeln(s); end.
ganul
16.05.2022
Var a : array[1..7,1..7] of integer; i,j,s : integer; begin s: =0; for i: =1 to 7 do begin for j: =1 to 7 do begin a[i,j]: =random(100); if i=j then s: =s+a[i,j]; write(a[i,j]: 4); end; writeln; end; write('сумма элементов главное диагонали: ',s); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Склавиатуры ввели 10 чисел положительных и отрицательных.необходимо вывести на экран сумму всех положительных чисел
var i,a,s: integer;
begin
for i: =1 to 10 do begin readln(a); if a> 0 then s: =s+a; end;
writeln(s);
end.