bespalovaannaanna
?>

Склавиатуры ввели 10 чисел положительных и отрицательных.необходимо вывести на экран сумму всех положительных чисел

Информатика

Ответы

alzheleshikov

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.

rykovatv6
Вы даже изначальную строку с ошибками! сая большая социальная сеть в россиисэто судя по всему ответ номер 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
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 чисел положительных и отрицательных.необходимо вывести на экран сумму всех положительных чисел
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Хромов1501
IP1379
av52nazarov
Stepan Rastorgueva850
clubgarag701
ikuvila5484
Negutsa_Kseniya524
simplexsol
Galinagol559
ehrik-ch
Svetlana395
extremhunter
Leonidovich_Elena771
sastakhova
Yurevna991