tatiana2676
?>

Ввести с клавиатуры массив из 5 элементов, найти минимальный из них. пример: введите пять чисел: 4 15 3 10 14 минимальный элемент 3 я пыталась, но эта прога не правильная, исправьте что не так! program qq; var a: array[1..5] of integer; min, i: integer; begin writeln('введите пять чисел: '); for i: =1 to 5 do read(a[i]); min: =a[1]; for i: =1 to 5 do if a[i] < min then min: =a[1]; writeln('минимальный элемент: ', min); end.

Информатика

Ответы

vera-classic75
>if a[i] < min then min:=a[1];
>if a[i] < min then min:=a[i];

Program qq;
var a:array[1..5] of integer;
min, i: integer;

begin
writeln('Ââåäèòå ïÿòü ÷èñåë: ');
for i:=1 to 5 do
read(a[i]);

min:=a[1];

for i:=1 to 5 do
if a[i] < min then min:=a[i];
writeln('Минимальный элемент: ', min);
end.
vahmistrova

( Решение на Pascal )

Не совсем ясно, каким образом составители задачи планировали найти среди случайных вещественных 10 чисел в диапазоне от -60 до 100 числа, кратные 8.

Но ради Бога:

var A: array [1..10] of real;

var i,s: integer;

begin

s:=0;

randomize();

for i:=1 to 10 do

 begin

 A[i]:=random()*160-60;

 write(A[i]:3:5,' ');

 if (A[i]>10) and (A[i]-trunc(A[i])=0)  

 and (trunc(A[i]) mod 8 =0) then

 s:=s+1;

 end;

writeln();

writeln('Количество элементов массива,',

'кратных числу 8 и больших 10: ',s);

end.


Дан одномерный массив A[10]. Элементы массива – это вещественные случайные числа большие -60 и меньш
Владимир-Денисович1080
Веб-дизайнер:Такой специалист занимается созданием сайтов и придумывает уникальные дизайнерские решения для них. Сегодня каждая уважающая себя фирма желает иметь свой Интернет-ресурс, а чтобы он был интересен для пользования, у него должна быть довольно удобная система навигации и интересное эстетическое оформление. Именно эти задачи и стоят перед веб-дизайнерами.

Вид деятельности «Программирование» - аналитик компьютерных систем, системотехник, инженер по автоматизированным системам, программист.
Вид деятельности «Обслуживание компьютерной техники» - IT-специалист (менеджер) , оператор ПК (ЭВМ) , системный интегратор, системный администратор, специалист по защите.
Вид деятельности «Искусство» - дизайнер, веб-дизайнер, фотограф, клипмейкер, фрилансер.
Вид деятельности «Полиграфия» - пейджмейкер, копирайтер, рерайтер, корректор, художественный и технический редактор, верстальщик, оператор компьютерного набора.
Вид деятельности «Офис, организация, предприятие» - секретарь, референт, делопроизводитель, машинистка, бухгалтер, менеджер, консультант.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Ввести с клавиатуры массив из 5 элементов, найти минимальный из них. пример: введите пять чисел: 4 15 3 10 14 минимальный элемент 3 я пыталась, но эта прога не правильная, исправьте что не так! program qq; var a: array[1..5] of integer; min, i: integer; begin writeln('введите пять чисел: '); for i: =1 to 5 do read(a[i]); min: =a[1]; for i: =1 to 5 do if a[i] < min then min: =a[1]; writeln('минимальный элемент: ', min); end.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Elen-ti81459
balabinatanya7174
Наталья_Васищев
ams-sim
zaseche99
Щербаков33
ilyanedelev
Николаевна
igraparkGP51
mail5
timeev3160
jstepanova
char40
Державина
соловьев_Куркина
▲