Помогите!!!! Срочно!!!!! Задача 1. С клавиатуры последовательно вводятся десять чисел. Написать программу на паскале,которая вычислит и выведет на экран сумму чисел,кратных 3. Задача 2. С клавиатуры вводится число N. Написать п...
Помогите!!!! Срочно!!!!!
Задача 1. С клавиатуры последовательно вводятся десять чисел. Написать программу на паскале,которая вычислит и выведет на экран сумму чисел,кратных 3.
Задача 2. С клавиатуры вводится число N. Написать программу, которая вычислит и выведет на экран все его делители
Гость
Ответ(ы) на вопрос:
ГостьВвод с клавиатуры одномерного массива целых чисел и вывод его элементов на экран с противоположным знакомProgram Massiv2;
const N=10;
type { Раздел описания типов переменных. Эти типы определяет сам пользователь, то есть мы определяем тип одномерного массива из n целых чисел }
Mas=array [1..N] of integer; { 1..N - тип индекса; для индекса выбран интервальный тип. то есть интервал целых чисел от 1 до N. где N определено в разделе const }
var
Line:Mas; { Line - одномерный массив, его тип определен нами как Mas }
i:integer; {Переменная, хранящая индекс элемента массива, к которому идет обращение }
begin
{ Ввод массива с клавиатуры }
for i:=l to N do { Обращение к элементам массива происходит в цикле, по очереди }
begin { Начало цикла ввода элементов массива }
write('Введите элемент с индексом ' ,i,' :');
readln(Line[i]) { Обращаемся к i-му элементу массива (Line[l],Line[2] и т. д.)}
end; { Конец цикла ввода элементов массива }
{ Вывод элементов происходит также в цикле:}
for i:=l to N do { Перебираем все N элементов массива }
write(-Line[i]:5); { 10 элементов выводятся в строку. Выводим все элементы массива с противоположным знаком }
writeln; { После вывода массива элементов - переход на новую строку }
readln
end.
Не нашли ответ?
Похожие вопросы