сервис вопросов и ответов2.(Паскаль) Заполнить
5-9 класс|
|
с клавиатуры массив из 10 элементов. Если минимальный элемент находится во второй половине массива увеличить каждый
элемент массива на 10, в противном случае массив оставить без изменения. Вывести новый массив на экран в виде
строки.
Nargiz78
17 апр. 2014 г., 10:30:16 (10 лет назад)
юляшка1995
17 апр. 2014 г., 12:44:17 (10 лет назад)
program gt;
var a:array[1..100]of integer;
i,min,r:integer;
begin
for i:=1 to 10 do
begin
read(a[i]);
end;
min:=a[1];
for i:=2 to 10 do
begin
if(a[i]<min)then min:=a[i];
end;
r:=0;
for i:=6 to 10 do
begin
if(a[i]=min)then r:=1;
end;
if(r=1)then begin
for i:=1 to 10 do
begin
a[i]:=a[i]+10;
end;
end;
for i:=1 to 10 do
begin
write(a[i],' ');
end;
end.
Ответить
Другие вопросы из категории
Основную часть экрана комьпьютера занимает рабочий....
Что ответ
Пожалуйста помогите срочно
Читайте также
Ребят помогите плиз только начали изучать массивы надо решить задачу!
на паскале:
заполнить массив из 12 целых числе данных из клавиатуры.Найти сумму и кол-во всех отрицательных числе массива, заменить все числа которые больше десяти нулями.Вывести полученный массив на экран.
СПС за ранее как можно быстрее!
Помогите, срочно!!!Задача по паскалю!Заполнить массив из 10 элементов положительных или отрицательных чисел во 2 массив переписать сначала отрицательные а
потом положительные числа, вывести результат
Задача с помощью Паскаля: заполнить таблицу из 7 строк и 7 столбцов случайными числами в интервале [-10;10] и вывести на экран. Обнулить элементы
выделенные зеленым цветом. вот по первой картинке СЛЕВА. Вот что должно получиться:
Вы находитесь на странице вопроса "2.(Паскаль) Заполнить", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.