сервис вопросов и ответоврешите пожалуйста срочно
5-9 класс|
|
Прикрепленные изображения
35467
31 июля 2014 г., 11:44:16 (9 лет назад)
Kate56789
31 июля 2014 г., 14:30:39 (9 лет назад)
uses crt;
const n=20;
var a: array [1..n+1] of integer;
i,k,z: integer;
begin
for i:=1 to n do
begin
a[i]:=random(10);
write(a[i],' ');
end;
writeln;
write('Введите число: '); readln(z);
for i:=n+1 downto 11 do
a[i]:=a[i-1];
a[10]:=z;
for i:=1 to n+1 do
write(a[i],' ');
end.
Ответить
Другие вопросы из категории
помогите решить пожалуйста
Зависит оценка за четверть
Сорри за качество
Помогите, пожалуйста, решить задачу.
Бабушка выслала Ивану посылку с яблоками и грушами. Некоторые из этих плодов были большими, остальные - маленькими. По цвету плоды тоже различались: часть плодов была желтого цвета, остальные - зеленого. Среди плодов не было ни маленьких, груш, ни зеленых яблок. Яблок было - 25, а груш - 17. Больших плодов было 32. Желтых плодов было 28. Зеленых яблок было на 2 больше, чем зеленых груш. Иван угостил этими плодами своих друзей. Больше всего ребятам понравились большие желтые яблоки. Сколько было таких яблок?
Читайте также
Решите пожалуйста,срочно!Дано целое четырехзначное число. Выяснить, является ли оно палиндромом, то есть таким числом,десятичная запись которого
читается одинаково слева направо и справа налево.. имя входного файла Input.txt, имя выходного файла output.txt
Кто сможет решите пожалуйста срочно!
Обязательно решение можно данно
Заранее большое спасибо!!!
Вы находитесь на странице вопроса "решите пожалуйста срочно", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.