gorbunova188
?>

9 класс Проанализируйте следующую программу и ответьте на вопросы: 1)Сколько элементов содержит данный массив? 2)Какие данные выводит эта программа? 3)Сколько раз используется структура цикл? 4)Найдите две строки, которые не нужны в данной программе и выпишите их. 5)Что выведет данная программа, если ввести 2, 3, 4, 5, 6? 6)Дополните программу так, чтобы она находила ещё и сумму четных элементов массива. (Данное задание выполняется на языке PascalABC.NET или в программе «блокнот». НЕ НА БУМАГЕ, так как в этом случает проверить корректность выполнения будет крайне затруднительно. const N = 5; var a: array[1..N] of integer; mi, ma, i: integer; b: integer; begin for i:=1 to N do readln (a[i]); mi:= 1; ma:= 1; for i:=1 to N do begin if a[i] < a[mi] then mi := a[i] else if a[i] > a[ma] then ma := a[i]; end; b := a[mi]; a[mi] := a[ma]; a[ma] := b; if a[1]=0 then write (‘readln’); for i:=1 to N do write(a[i]); writeln; end.

Информатика

Ответы

Dmitrievna-Dmitrii980

A) имя массива - a

Б) 20 элементов

В) элементы целого типа

Г) с цикла for и генератора случайных чисел

Д) 49

Е) программа находит максимальный и минимальный элементы в массиве, затем считает их разность и выводит на экран-

Объяснение:

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

9 класс Проанализируйте следующую программу и ответьте на вопросы: 1)Сколько элементов содержит данный массив? 2)Какие данные выводит эта программа? 3)Сколько раз используется структура цикл? 4)Найдите две строки, которые не нужны в данной программе и выпишите их. 5)Что выведет данная программа, если ввести 2, 3, 4, 5, 6? 6)Дополните программу так, чтобы она находила ещё и сумму четных элементов массива. (Данное задание выполняется на языке PascalABC.NET или в программе «блокнот». НЕ НА БУМАГЕ, так как в этом случает проверить корректность выполнения будет крайне затруднительно. const N = 5; var a: array[1..N] of integer; mi, ma, i: integer; b: integer; begin for i:=1 to N do readln (a[i]); mi:= 1; ma:= 1; for i:=1 to N do begin if a[i] < a[mi] then mi := a[i] else if a[i] > a[ma] then ma := a[i]; end; b := a[mi]; a[mi] := a[ma]; a[ma] := b; if a[1]=0 then write (‘readln’); for i:=1 to N do write(a[i]); writeln; end.
Ваше имя (никнейм)*
Email*
Комментарий*