Регистрация
nOMOshHuK2
12.02.2022 15:35
Информатика
Есть ответ 👍

Var s, i: integer; Mas:array[1..10] of integer;

Begin

Mas[1]:=14; Mas[2]:=10; Mas[3]:=-8; Mas[4]:=6;

Mas[5]:=12; Mas[6]:=4; Mas[7]:=-16; Mas[8]:=-7;

Mas[9]:=5; Mas[10]:=3; s:=0;

for i:=1 to 5 do Mas[2*i]:=-Mas[2*i-1];

for i:=1 to 10 do

if Mas[i]>0 then s:=s+Mas[1];

write(s)

End.

решение с пояснением

291
389
Посмотреть ответы 2

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

дина372
дина372
4,8(61 оценок)

Where's a good day at work and I will be there at work and I have a few questions about the table for the golden.

dimonbob2005
dimonbob2005
4,4(86 оценок)
        3 л:   8 л:         1.       3      0 (налить 3л) 2.     3      3 (перелить из 3л в 8л и налить в 3л.) 3.     0      6 (перелить из 3л в 8л) 4.     3      6 (налить 3л) 5.       1      8 (перелить из 3л в 8л) 6.     1      0 (вылить 8 л) 7.       0      1 (перелить из 3л в 8л) 8.       3      1 (налить 3л) 9.     0      4 (перелить из 3л в 8л) 10.   3      4 (налить 3л) 11.   0      7 (перелить из 3л в 8л)

Популярно: Информатика