какие 4 предмета сдовать в геа
Uses crt;
var mas: array [1..1000] of real;
x,k,o,p:integer;
begin
write('K='); readln(K);
o:=0; p:=0;
for x:=1 to K do
begin
write('mas[',x,']:');
readln(mas[x]);
if mas[x]<0 then inc(o);
if mas[x]>0 then inc(p);
end;
writeln;
writeln('Отрицательных элементов: ',o);
writeln('Положительных элементов: ',p);
end.
Программы/приложения могут перестать работать в том случае, если какая-нибудь другая программа/приложение повреждена.
<span>Программа выводящая одно число: сумму всех чисел , кратных 4 и оканчивающихся на 6.</span>
1)
var
k,i:integer;
begin
while i<=10 do
begin
k:=k+1;
if k mod 7 = 0 then
begin
writeln(k);
i:=i+1;
end;
end.
2)
var
k,i:integer;
begin
while i<=11 do
begin
k:=k+1;
if k mod 5 = 0 then
begin
writeln(k);
i:=i+1;
end;
end.