Третье задание, заранее спасибо
10-11 класс
|
3)
var a:array[1..5] of integer;
i,min:integer;
begin
for i:=1 to 5 do begin
write('Vvedite a[',i,'] = ');
readln(a[i]);
min:=a[1];
end;
for i:=1 to 5 do if a[i]<min then min:=i;
for i:=1 to 5 do if i>min then a[i]:=0;
for i:=1 to 5 do write(a[i]);
end.
Другие вопросы из категории
Помогите пожалуйста научиться решать задачи по типу:
Некто задумал натуральное число, не превосходящее 118, а затем сообщил: "Задуманное мною число является кратным числу 3". Какое количество бит информации содержится в этом сообщении?
Знаю про 2^i=N, но как это использовать?
Программа должна быть циклом со счетчиком
S=2+4+8+....1024
Найти S и вывести!
введенных чисел и их сумму. Через оператор FOR пожалуйста.
Читайте также
мне кажется Д??
также третья и четвертая цифры 2. Полученные два числа записываются другза другом в порядке возрастания( без разделителей) Пример 8754. Суммы 8+7=15; 5+4=9. Результат 915 Какое из следующих чисел является результатом работы автомата 1) 219 2) 118 3) 1411 4) 151 подробное вычисление заранее спасибо)
различных комбинаций этого списка. Вывести на экран названия объектов, которые есть во всех множествах одновременно. Определить, каких объектов нет ни в одной множестве. Выполнить дополнительно задачи своего варианта, а именно определить, какие объекты: входящие во вторую и третью множества. Паскаль, заранее спасибо