Бесплатный хостинг подходит для

личных веб-сайтов
государственных учреждений
больших компаний
огромных общественных веб - сайтов

141

419

Посмотреть ответы 1

Ответы на вопрос:

aprishkom

Информатика

4,6(37 оценок)

Const k = 13; var a: array[1..k] of integer; i: integer; s: real; begin write('исходный массив: '); for i: = 1 to k do begin a[i]: =random(21)-10; write(a[i],' '); end; writeln; {первое : } for i: = 1 to k div 2 do s: =s+a[i]; writeln('s = ',s); {второе : } s: =0; for i: = 1 to k do if i mod 2 = 0 then s: =s+a[i]; writeln('s = ',s); {третье } s: =1; for i: = 1 to k do if i mod 2 < > 0 then s: =s*a[i]; writeln('s = ',s); {четвёртое : } s: =0; for i: = 1 to k do if (a[i] mod 2 = 0)and(i mod 2 = 0) then s: =s+a[i]; writeln('s = ',s); end.