Вариант 1. 1. дан линейный массив a[1..n], содержащий целые числа. посчитать сумму положительных чисел и распечатать номера таких чисел.

183

254

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

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

Seallk

Информатика

4,4(26 оценок)

Const n=20; var a: of integer; s,i: integer; begin for i: =1 to n do begin write ('a='); read (a[i]); end; s: =0; for i: =1 to n do begin if a> 0 then begin s: =s+a; write (i); end; end; write (s); end.

favorit19971

Информатика

4,4(31 оценок)

Var день,месяц: byte; begin write('№ дня = '); readln(день); var c: =365-день; write('№ месяца = '); readln(месяц); case месяц of 2: c: =c-31; 3: c: =c-59; 4: c: =c-90; 5: c: =c-120; 6: c: =c-151; 7: c: =c-181; 8: c: =c-212; 9: c: =c-243; 10: c: =c-273; 11: c: =c-304; 12: c: =c-334 end; if (c mod 100> 10)and(c mod 100< 20) then write('до нового года осталось ',c,' дней') else case c mod 10 of 1: write('до нового года остался ',c,' день'); 2..4: write('до нового года осталось ',c,' дня'); 0,5..9: write('до нового года осталось ',c,' дней') end end.