составьте программу вычисления в массиве B(N) минимального элемента и его номера
10-11 класс
|
Var mas:array [1..20] of integer;
i,min,min1:integer;
Begin
write('Из чисел ');
for i:=1 to 20 do begin
mas[i]:=random(50);
write(mas[i],' ');
end;
writeln;
min:=mas[1];
for i:=1 to 20 do
if mas[i]<min then begin min:=mas[i]; min1:=i; end;
Writeln('Минимальное является: ',min,' его номер в массиве: ',min1);
End;
Комментарий удален
ясное дело что на английском
языков программирования много так то
Другие вопросы из категории
программу, которая бы по введенному номеру времени года (1 - зима, 2 - весна, 3
- лето, 4 - осень) выдавала соответствующие этому времени года месяцы,
количество дней в каждом из месяцев.
записываются в файл, сжатие данных не производится. Определите размер полученного файла в мегабайтах?
алгоритма для решения этой задачию Протестировать алгоритм для А=5,А=-4,А=0 в
Var n, s : Integer;
Begin
Readln (n);
s:=0;
While n>0 Do
Begin
s:=s+n mod 10;
n:=n div 10
End;
Writeln (s)
End.
Расположите перечисленные исходные данные для этой программы (значения переменной n) в порядке УБЫВАНИЯ результатов (значения переменной s) работы программы.
1) 95
2) 502
3) 10023
4) 8
5) 613
Читайте также
элементов.
3. Составьте программу заполнения массива, не используя клавиатуру, числами: 1, 3, 5, 7, 9, 11, 13, 15, 17, 19.
2. Составьте блок-схему алгоритма и программу вычисления в массиве A(10) количества положительных элементов.
3*. Составьте программу заполнения массива, не используя клавиатуру, числами: 1, 3, 5, 7, 9, 11, 13, 15, 17, 19.
Составить программу вычисления значений функции F(x) на отрезке [а; b] с шагом h.
Результат представить в виде таблицы, первый столбец которой — значения
аргумента, второй — соответствующие значения функции: "F(x) = 1/2 ctg x/4+4"
2)Составьте программу которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150
3)Дано вещественное число А и целое число N(>0).Испульзуя один цикл вывести все целые степени числа А от 1 до N
------------------------ОПЕРАТОР WHILE