Ответы на вопрос:
Векторное изображение в отличии от растрового при масштабировании не теряет качество.
var
array a[1..5] of integer;
i,sum,pr,pol,otr: integer;
for i: =1 to 5 do
readln(a[i]);
sum: =0;
pr: =1;
pol: =0;
otr: =0;
for i: =1 to 5 do begin
sum: =sum+a[i];
pr: =pr*a[i];
if a[i]> 0 then
pol: =pol+1;
if a[i]< 0 then
otr: =otr+1;
end;
writeln(sum, ' ', pol, ' ',pr, ' ',otr);
end;
Популярно: Информатика
-
berfasrd04.08.2021 03:54
-
sviridovakatya815.02.2023 20:05
-
amankeldievan20.09.2020 04:32
-
kasa030317.08.2020 01:23
-
slarina17115.11.2021 11:18
-
sargsyantatev130.12.2020 23:52
-
savannah121.05.2022 16:58
-
lixonilya06.07.2022 11:11
-
lida10501.03.2022 11:34
-
Dmitry023214116.05.2021 17:36