В-3 1) опишите последовательность 10 целых чисел с массива 2) дан фрагмент программы: for i: =1 to 10 do a[i]: =sqr(i)-i; определите элементы массива 3) дан массив (см 2). определите результат работы фрагмента программы: k: =0; for i: =1 to 10 do if (a[i]> 10) and (a[i]< 70) then k: =k+1; write(k); 4) напишите фрагмент программы, которая преобразует массив из десяти элементов следующим образом: все отрицательные элементы заменяет -1, а остальные заменяет на 1.

115

162

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

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

timati06blacstar

Информатика

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

1) не ясен вопрос 2) 0 2 6 12 20 30 42 56 72 90 3) 5 4) for i : = 1 to 10 do begin if (a[i] < 0) then a[i] : = -1 else a[i] : = 1; write(a[i], ' '); end; код полностью var a: array[1..10] of integer; i, k: integer; begin for i : = 1 to 10 do begin a[i] : = sqr(i) - i; write(a[i], ' '); end; writeln; k : = 0; for i : = 1 to 10 do if (a[i] > 10) and (a[i] < 70) then k : = k + 1; write(k); writeln; for i : = 1 to 10 do begin if (a[i] < 0) then a[i] : = -1 else a[i] : = 1; write(a[i], ' '); end; end.

viktoria2206

Информатика

4,5(74 оценок)

Можно скопировать все нужные файлы, потом создать папку и вставить все скопированные файлы и отправить папку с файлами учителю, или же скачать на флешку все файлы и передать учителю