Создать массив из 10 случайных чисел на промежутке от 0 до 100, в первую позицию вставить число 100, предпоследний элемент удалить, вывести на экран
5-9 класс
|
исходный и конечный массивы.
Ассссссссссс
14 июля 2013 г., 11:38:47 (10 лет назад)
Pyatyhcat
14 июля 2013 г., 13:55:20 (10 лет назад)
uses crt;
const N=10;
var a:array [1..N] of integer;
x:integer;
begin
randomize;
for x:=1 to 10 do
begin
a[x]:=random(101);
writeln('a[',x,']:',a[x]);
end;
a[1]:=100;
a[9]:=a[10];
writeln;
for x:=1 to 9 do
writeln('a[',x,']:',a[x]);
end.
Ответить
Другие вопросы из категории
Программа в pascal abc Вводится последовательность натуральных чисел. Признак конца ввода – число 0. Определить количество чисел кратных 2 и 3 и
сумму всех введенных чисел.
Читайте также
Решите пожалуйста.(в паскале или
конструкторе) Получить массив из n случайность лежащих в интервале от -50 до 100, определить каких чисел в нем больше четных положительных или нечетных отрицательных?
1)Задан массив из 11 целых чисел. Найти сумму элементов массива, кратных 5 2)Задан массив из 11 целых чисел. Посчитать количество нечётных
элементов массива.
3)задан массив из 9 целых чисел.Вывести на экран чётные элементы
составить программу, которая формирует массив из 15 случайных чисел принадлежащих промежутку [3,33]. Нечетные числа заменяет на 1, а остальные
увеличивает на 3. На экран выводятся исходные и преобразованные значения
Вы находитесь на странице вопроса "Создать массив из 10 случайных чисел на промежутке от 0 до 100, в первую позицию вставить число 100, предпоследний элемент удалить, вывести на экран", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.