Сформировать массив из 100 элементов и вывести его в строку. Объясните пожалуйста)
5-9 класс
|
Program zadacha;
Type mas=Array[0..100] of Integer; //так делается тип твоего массива
Var m:mas; // обозначается
i,n:Integer;
Begin
ReadLn(n); // вводится длина массиа
For i:=1 to n do begin // начинаем цикл
m[i]:=i; // присваивает элементу массива как значение - его номер
Write(m[i],' '); // печатаем
end; // заканчиваем цикл
ReadLn; // вводится, чтобы консоль сразу не закрывалась(будешь сдавать задачу в систему - не пиши!!
End.
Написать программу в Турбо Паскале. Спасибо)
Другие вопросы из категории
проходящей через заданные точки А и В
Читайте также
1-й равен значению текущего индекса, увеличенному на 3; 2-й равен квадрату предыдущего индекса; 3-й равен сумме двух предыдущих элементов. 2 Задание : сформируйте массив, содержащий 15 элементов ,с помощью датчику случайных чисел. Получите новый массив,каждый элемент которого равен сумме соответствующего элемента исходного массива и его индекса. В полученном массиве удвойте элементы,которые меньше заданного с клавиатуры числа А,и найдите их сумму . Выведите на экран исходные и полученные результаты .
2). Дан массив из n элементов. Написать программу подсчитывающую произведение элементов массива.
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.
элементов массива.
3)задан массив из 9 целых чисел.Вывести на экран чётные элементы