Огромная просьба-! 55 ! №1 с клавиатуры ввести 10 целых чисел и вывести в строчку все числа большие 5. №2 в массиве a, содержащем 10 положительных и отрицательных целых чисел, вычислить сумму положительных элементов. элементы массива вводить с клавиатуры. №3 дан массив a, содержащий 10 целых чисел. элементы массива вводить с клавиатуры. вывести на печать все числа, увеличив каждое значение в 2 раза.

233

500

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

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

mary357vozd80s

Информатика

4,7(82 оценок)

Номер 1 program n1; var a: array [1..10] of integer; i: integer; beginfor i: = 1 to 10 doreadln(a[i]); for i: =1 to 10 do beginif a[i]> 5 thenwrite (a[i]); end; end. номер 2 program n1; var a: array [1..10] of integer; i,s: integer; beginfor i: = 1 to 10 doreadln(a[i]); s: =0; for i : = 1 to 10 do beginif a[i]> 0 thens: =s+a[i]; end; write(s); end. номер 3 program n1; var a: array [1..10] of integer; i: integer; beginfor i: = 1 to 10 doreadln(a[i]); for i: =1 to 10 do begina[i]: =a[i]*2; write(' ',a[i]); end; end.