Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
эмн, счеты, калькулятор, эвм, арифмометр, логарифмическая линейка,
абак - счётная доска, применявшаяся для арифметических вычислений.
var a: array [1..5] of integer; s,i: integer; begin for i : = 1 to 5 do begin writeln('a[',i,']='); read(a[i]); s: =s + a[i] end; writeln('s=',s); end.
var a,b,c: array [1..100,1..100] of integer;
as,bs,cs,i,j: integer;
begin
sb: =1;
for i : = 1 to n do
for j: = 1 to n do
if a[i,j]< 0 then sa: =sa+a[i,j];
if b[i,j]> 0 then sb: =sb*b[i,j];
if j=3 then sc: =sc+c[i,j];
end;
writeln(sa,sb,sc);
end.
Популярные вопросы