Programm p1;
var i,s:integer;
arr1:array [1..8] of integer;
begin
for i:=1 to 8 do
begin
 writeln ('Введите элемент массива ',i);
 readln(arr1[i]);
end;
s:=0;
for i:=1 to 8 do
begin
 if (arr1[i] mod 2 <> 0) and (arr1[i]>0) then s:=s+arr1[i];
end;
writeln('Сумма нечетных положительных элементов равно: ',s);
end.

0 0

4 года назад

Привет. Необходимо сделать сайт в блокноте с парочкой картинок и несколькими гипер ссылками, кто может помочь?

norton

У файла "index" поменяй формат с "txt" на "html" и закинь все вместе в какую-нибудь папку.

0 0

3 года назад

Помогите!!!не понимаю как решить.... напишите программу на языке паскаль*:даны 3 числа (a,b,c)Определить являются ли они сторона

гвоздика [18.4K]

Воть, всё по логике *:
Удачи:)
P.S. Первые 3 условия по-видимому можно исключить, но я не стал рисковать: в этом мире и так чудес мало, а программа работает

0 0

4 года назад