Дан массив из 10 элементов заполнить с клавиатуры: 1) вывести массив 2) вывести массив на экран 3) поменять местами 6 и 9 элемент массива 4) найти max элементов массива
Предмет:
ИнформатикаАвтор:
núñez76В данной программе предполагается что массив целочисленный
Program Massiv;
Uses Crt;
var a:array[1..10] of integer;
temp,max,i:integer;
begin
clrscr;
for i:=1 to 10 do
begin
write('Введите ',i, 'элемент массива: ' );
readln(a[i]);
end;
writeln;
write('Исходный массив: ');
max:=a[1];
for i:=1 to 10 do
begin
write(a[i])
write(' ');
if (a[i]>max) tnen max:=a[i];
end;
temp:=a[6];
a[6]:=a[9];
a[9]:=temp;
writeln;
write('Массив после обмена: ');
for i:=1 to 10 do
begin
write(a[i])
write(' ');
end;
writeln;
writeln('Максимальный элемент массива: ',max);
readkey;
end.
Автор:
wigglesДобавить свой ответ
Есть загадки:
первая - нота второе - игра целое встретится у столяра;
-долото
_____________________________________________________
первыйслог - предлог, второй - сигнал беды, а весь я иногда Вам нужен для воды
-насос
_____________________________________________________
слог первый мой - предлог, второе - летний дом, а целое порой решается струдом;
-задача
_____________________________________________________
мое начало - буква алфавита, а звук всегда шипит сердито, второго корабли боятся и обойти его стремятся, а целое весной жужит, то сядит на цветок, то снова полетит;
-шмель
_____________________________________________________
НУ ТЕК ВОТ, САМО ЗАДАНИЕ: ПРИДУМАТЬ САМОМУ(ОЙ) ТАКИЕ ЖЕ ЗАГАДКИ ВМЕСТИ С ОТВЕТОМ - 5 ШТУК, НУ В КРАЙНЕМ СЛУЧАИ 3
Предмет:
Русский языкАвтор:
ashlynnriz5Ответов:
Смотреть
Заполните таблицу.
Судебная реформа.
Основные принципы Их реализация в судебной
буржуазного права реформе
1) Независимость суда
2) Выборность суда
3) Гласность суда
4) Состязательность суда
5) Равенство всех сословий перед законом
помогите составить рассказ по казахскому со словами жуыну, су, сабын, бiрнеше рет, мыкты, жаксы, тазарту, пайдалы, куту, дурыстап, кiр, кол, дене, бас, кунде. поооожалуйста помогите, желательно с переводом, я вас очень прошу очень нужна ваша помощь:)
Предмет:
Қазақ тiлiАвтор:
casianoОтветов:
Смотреть
Решить поcледовательно, а не просто ответ.
19sin2x + 6cos^2x - 12 = 0;
9cosx + sinx - 1 = 0;