Дан массив из 20 элементов, состоящий из целых случайных чисел. Числа находятся в интервале (-15, 1]. Выполните задание: Выведите на экран в столбец такой массив, затем, найдите количество элементов этого массива, равных 0.
Сначала немного теории. Тут у нас импликация(если..то...), комбинированная с конъюнкцией(и). Таблица истинности импликации(стрелочки): 0 0 1 0 1 1 1 0 0 1 1 1 Общее правило: если a<=b, тогда правда Таблица истинности конъюнкции(/\): 0 0 0 0 1 0 1 0 0 1 1 1 Общее правило: если есть одна ложь-всё ложь. Про НЕ и гуманитарий поймёт. Про данный пример: Нам нужен вариант, где оба выражения являются правдой, т.к. между ними стоит И Подробно рассмотрим первый вариант: Ирина Первая буква гласная-правда Вторая буква гласная-ложь Значит, результат импликации-ложь, в чём можно убедиться взглянув на таблицу истинности, но, так как НЕ так же присутствует в данном условии, это выражение возвращает правду. Последняя буква гласная-правда Так как оба выражения при конъюнкции правда, всё выражение является правдой и удовлетворяет условию.
var a:array [1..20] of integer;
i,k:integer;
begin
randomize;
k:=0;
for i:=1 to 20 do
begin
a[i]:=random(16)-14;
writeln(a[i]);
if a[i]=0 then k:=k+1
end;
write(k)
end.