Дан массив из n элементов,заменить элементы которые равны индексу - нулем.
5-9 класс
|
Выполнить в виде программы на Паскале.
const N = 5; // Размер массива
var
a: array[1..N] of integer;
i: integer;
begin
for i:=1 to N do begin
read(a[i]); // Ввод элементов массива
end;
for i:=1 to N do begin
if i=a[i] then a[i]:=0; // Заменяем элементые, равные своему номеру, на нуль
end;
for i:=1 to N do begin
print(a[i]); // Вывод элементов массива
end;
end.
Другие вопросы из категории
натуральные числа, количество введенных чисел не известно, последовательность чисел заканчивается 0.
Количество чисел не превышает 100. Введенные числа не превышают 30000.
Программа должна вывести одно число: сумму двухзначных чисел, кратных 5.
Люди! Плиииз, помогите! Т,Т
двоичная,восьмиричная и шестнадцатеричная....
Читайте также
2). Дан массив из n элементов. Написать программу подсчитывающую произведение элементов массива.
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.
Необходимо посчитать элементы массива значения которых кратно 2. Заменить элементы массива значения которых отрицательны,заменить числом 111
Напишите программу пожалуйста на языке паскаля
Помогите пожалуйста
Формат входных данных
В певой строке входного файла содержится одно целое число n(1<=n<=200).Во второй строке находятся n целых чисел a1,a2...aN (-1000<=ai<=1000)-елементы массива.
Формат выходных данных
В единственной строке выходного файла выведите одно слово "YES",если в этом массиве есть три числа сумма которых равна нулю.Иначе выведите "NO".