for(i:=1 to n) a[i]:=random(101);// заполняшь массив a целыми числами в диапозоне от 0 до 100
Cхема вывода номера отрицательного элемента и самого этого элемента.
for(i:=1 to n) do if a[i]<0 then write(i,' ',a[i],' ');// a это массив по которому ты пробегешся.
Решение
Объяснение:
1. Создать 2 переменные, сделать проверку через if Если a>b то writeln(a+b) else writeln(a*b) После этого writeln("ЗАДАЧА РЕШЕНА")
2.Создать переменную n(Сколько лет дракону) и h(Голова) Так же сделать проверку через if сколько ему лет Если >100 то n*3 Если <100 То (100*3)+((n-100)*2) и записать в переменную h
Что бы получить глаза достаточно h*2 (если у дракона 2 глаза)
3.Создать 2 переменные, сделать проверку через if допустим если a<b writeln(a) else (b)
4.Создать переменную в которую пользователь будет вводить число,
После этого надо его делить на 4 и округлять в меньшую сторону
Если число будет 1 - Зима Если 2 - Весна 3 - Лето 4-Зима
5. -
6. Создаем 2 переменные a,b - Записываем в них длины сторон после умножаем a*b
7.Создаем переменную скорости и расстояния - Потом Расстояние делим на скорость 600/120 И получаем время в полете
8.-
1. Алгоритм выполняет подсчет количества элементов больше 12 и выводит это количество на экран. В данном случае 7 элементов (7 дней со среднедневной температурой более 12 градусов)
2. Алгоритм выполняет поиск минимального элемента и выводит его на экран. В данном случае будет выведено 12 (12 - минимальное количество голосов за исполнителя народных песен).
3. Алгоритм выполняет поиск минимального элемента в массиве и запоминает и выводит на экран его порядковый номер. В данном случае будет 4 (4 - это порядковый номер ученика с минимальным количеством решенных задач).
Объяснение:
Блок-схема - во вложении.
Program Poliklolik;
const n=10;
var a:array[1..n] of integer;
i: integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK! ***');
for i:=1 to n do
begin
write('Введите ',i,'-e число ');
readln(a[i]);
end;
writeln('отрицательные элементы массива: ');
for i:=1 to n do
if a[i]<0 then writeln(i,'-й: ',a[i]);
writeln('*** The end ***');
end.