Поменять местами максимальный и первый элементы массива.
5-9 класс
|
В turbo pascal.
Maksgalun
13 июня 2014 г., 13:20:22 (9 лет назад)
Lele44ka
13 июня 2014 г., 13:58:33 (9 лет назад)
program max;
const N=60;
var a:array [1..N]of integer; i,m,k:integer;
begin
for i:=1 to N do
readln(a[i]);
k:=0;
m:=-32767;
for i:=1 no N do
if a[i]>m then
k:=a[i];
a[1]:=k;
for i:=1 to N do
writeln ("a[",i,"]=",a[i]);
end.
Ответить
Другие вопросы из категории
Отметьте природные системы
Солнечная система
футбольная команда
растения
компьютер
автомобиль
математический язык
Кто нибуть решал итоговый тест по курсу информатики за 8-9 класс семакин?
Киньте решение плиз!!!
Читайте также
Дан массив из 10 элементов заполнить с клавиатуры: 1) вывести массив 2) вывести массив на экран 3) поменять местами 6 и 9 элемент массива 4) найти max
элементов массива
помогите решить ПЛИИИИИЗ
1.дан массив из n элементов . поменять местами максимальный и последний элемент массива
Поменять местами минимальный и первый элементы массива.
В turbo pascal
Вы находитесь на странице вопроса "Поменять местами максимальный и первый элементы массива.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.