Var a: array [1..100] of real;
n, i, kol: integer;
begin
readln(n);
for i := 1 to n do
read(a[i]);
kol := 0;
for i := 1 to n do begin
if (a[i] > 0)and(i mod 2 = 0)
then kol := kol + 1;
if a[i] < 0
then a[i] :=0;
end;
writeln(kol);
<span>end.</span>
Невысокое качество электронных комплектующих было слабым местом советских ЭВМ третьего поколения. Отсюда постоянное отставание от западных разработок по быстродействию, весу и габаритам, но, как настаивают разработчики СМ, не по функциональным возможностям. Для того чтобы компенсировать это отставание, разрабатывались спецпроцессоры, позволяющие строить высокопроизводительные системы для частных задач. Еще в начале 60-х появляются первые миникомпьютеры - небольшие маломощные компьютеры, доступные по цене небольшим фирмам или лабораториям. Миникомпьютеры представляли собой первый шаг на пути к персональным компьютерам, пробные образцы которых были выпущены только в середине 70-х годов. Известное семейство миникомпьютеров PDP фирмы Digital Equipment послужило прототипом для советской серии машин СМ.
Между тем количество элементов и соединений между ними, умещающихся в одной микросхеме, постоянно росло, и в 70-е годы интегральные схемы содержали уже тысячи транзисторов. Это позволило объединить в единственной маленькой детальке большинство компонентов компьютера - что и сделала в 1971 г. фирма Intel, выпустив первый микропроцессор, который предназначался для только-только появившихся настольных калькуляторов. Этому изобретению суждено было произвести в следующем десятилетии настоящую революцию - ведь микропроцессор является сердцем и душой современного персонального компьютера.
Var a,b,c:integer;
begin
c:=1;
for a:=5 downto 2 do begin
for b:=5 downto c do begin
write(a);
end;
writeln('');
c:=c+1;
end;
end.
На примере текстового редактора Microsoft Office Word 2007, это кнопки в верхнем левом углу, такие как "Отменить", "Сохранить", "Вернуть".
для того чтобы выполнить программу номер два необходимо чтобы в ванну спокойно вмещалось 15 литров.
Первая программа
1) Долить 5литров
2) Слить 3 литра
3) Долить 5 литров
4) Слить 3 литра
В ванне 4 литра
Вторая программа
1) Долить 5литров
2) Долить 5литров
3) Долить 5литров
4) Слить 3 литра
5) Слить 3 литра
6) Слить 3 литра
7) Слить 3 литра
В ванне 3 литра