задайте массив из 10 элементов с помощью датчика случайных чисел. выведите на экран исходный массив и и номера тех элементов,которые расположены между
5-9 класс
|
наибольшим и наименьшим элементами
лагает(( но отметь это как ответ)
Уже отвечал, но все же такое решение актуальнее:
var
ar:array[1..10] of integer;
max,min,i,kmax,kmin:integer;
begin
randomize;
max:=0;
min:=1000;
for i:=1 to 10 do begin
program lentai;
var a:array[1..10] of integer;
max,min,i:integer;
begin
cls;
write('Массив:');
for i:=1 to 10 do
begin
a[i]:=random(50);//числа от 0 до 49
write(' ',a[i]) //вывели изначальный массив
end;
writeln();
min:=1;//нечто большое
max:=1;//нечто маленькое
for i:=1 to 10 do
begin
if a[i]<a[min] then min:=i;
if a[i]>a[max] then max:=i;
end;
writeln('Номер наименьшего элемента массива: ',min);
writeln('Номер наибольшего элемента массива: ',max);
if min-max>2 then
begin
write('Числа между ними:');
for i:=max+1 to min-1 do write(' ',a[i]);
end
else
if max-min>2 then
begin
write('Числа между ними:');
for i:=min+1 to max-1 do write(' ',a[i]);
end
else write('Чисел между ними нет:');
end.
вот так в общем, окно ответа лагает(
блин)) спаСибо огромное)
Другие вопросы из категории
№2.Задание с кратким ответом. Какое количетсво информации несет двоичный код 10101010?
1. Скорость чтения ученика 6 класса составляет приблизительно 160 символов в минуту.
Какой объём информации получит ученик, если он будет непрерывно читать в течении 30 минут?
2. Сколько времени потребуется ученику, чтобы прочесть текстовый файл, занимающий половину трёхдюёмовой дискеты?
А)Свидетельство о рождении
Б)Информация в записной книжке
В)Интернет
Г)Память этого человека
1) В книге 35 стр. На каждой стр. 40 строк по 30 символов в строке. Вычислите информационный объем книги.
2) Инфор. объем сообщения 8 Мегабайт. Сколько символов содержит это сообщение?
3) Объем инфор. сообщения составляет 65536 бита. Выразите в килобайтах.
Читайте также
числа N. Выведите на экран исходный и полученный массив. Пожалуйста
соответствующему элементу исходного массива. посчитайте кол- во неизменившихся эелементов и найдите в новом массиве максимальный о абсолютной величине отрицательный элемент. выведите на экран исходные и полученные результаты (ПОМОГИТЕ ПОЖЛСТ ОЧЕНЬ НАДО)
соответствующего элемента исходного массива и заданного с клавиатуры числа А. В проученном массиве найдите максимальный элемент среди элементов с нечетными номерами. Выведите на экран исходные полученные результаты.
1-й равен значению текущего индекса, увеличенному на 3; 2-й равен квадрату предыдущего индекса; 3-й равен сумме двух предыдущих элементов. 2 Задание : сформируйте массив, содержащий 15 элементов ,с помощью датчику случайных чисел. Получите новый массив,каждый элемент которого равен сумме соответствующего элемента исходного массива и его индекса. В полученном массиве удвойте элементы,которые меньше заданного с клавиатуры числа А,и найдите их сумму . Выведите на экран исходные и полученные результаты .
квадрата и самого соответствующего элемента исходного массива. найдите резность сумм элементов исходного и нового массива. Выведите на экран исходный и поулченные результаты.
Спасибо заранее