Program n1; const n=15; var sum,i: integer; a: array[1..n] of integer; begin randomize; sum: =0; writeln('массив: '); for i: =1 to n do begin a[i]: =random(10)-3; write(a[i],' '); if (i mod 2=0) and (a[i]> 0) then sum: =sum+a[i]; end; writeln; writeln('сумма: ',sum); end.
Спасибо
Ответ дал: Гость
сетевые платы для каждого компьютера, концентратор (хаб) или маршрутизатор (свитч), кабель типа "витая пара". кабелем соединить каждый компьютер ()через сетевую плату с хабом или свитчем.
Ответ дал: Гость
var s : string; k,f : longint; begin readln(s); val(s[1],k,f); if f< > 0 then writeln('некоректно введена строка') else if length(s)-1=k then writeln('равно') else writeln('неравно'); end.
Популярные вопросы