Напишите программу в паскаль
1. Заполнить одномерный массив целыми числами. Вычислить произведение нечетных элементов массива и количество отрицательных элементов.
2. Заполнить одномерный массив целых чисел. Определить количество элементов равных минимальному значению.
3. Заполнить одномерный массив 10 случайными целыми числами на промежутке от -11 до 30. Элементы, имеющие четный индекс заменить на 0.
1. картинка
2. 2) палка
Объяснение:
1.
Общий порядок действий:
1) скобки
2) НЕ (¬, черта над выражением) - значение противоположно исходному высказыванию
3) И (∧) - истинно, когда оба исходных высказывания истинны
4) ИЛИ (∨) - ложно, когда оба исходных высказывания ложны
2.
(Первая буква слова согласная ИЛИ Вторая буква слова гласная) И Последняя буква гласная = 1 (истинно)
1) ирис
2) палка
3) словарь
И - истинно, когда оба исходных высказывания истинны
(Первая буква слова согласная ИЛИ Вторая буква слова гласная) = 1 (истинно)
Последняя буква гласная = 1 (истинно)
Проверим правую часть (Последняя буква гласная = 1 (истинно)):
1) ирис = 0 (ложно, с - согласная буква)
2) палка = 1 (истинно, а- гласная буква)
3) словарь = 0 (ложно, ь - не гласная и не согласная буква)
Осталось всего 1 слово (палка)
Проверим левую часть ((Первая буква слова согласная ИЛИ Вторая буква слова гласная) = 1 (истинно))
ИЛИ - истинно, когда любое из исходных высказываний истинно
Первая буква слова согласная = 1 (истинно)
ИЛИ
Вторая буква слова гласная = 1 (истинно)
2) палка = 1 (истинно, п - согласная буква, а - гласная буква)
1) ирис = 0 (ложно, и - гласная буква, р - согласная буква)
3) словарь = 1 (истинно, с - согласная буква, л - согласная буква)
Слово палка подходит и под левую часть
program z1;
var a,b,k,i:integer;
begin
k:=0;
write('Ââåäèòå êîîðäèíàòó à: ');
read(a);
write('Ââåäèòå êîîðäèíàòó b: ');
read(b);
for i:=a to b do begin
if i mod 3=0 then begin
writeln(i);
k:=k+1;
end;
end;
writeln('Количество чисел кратных трём равно ',k);
readln;
end.