обозначим счетчики переменными kp(+) и km(-), так же возьмем переменную j:integer для осуществления цикла, так же необходим сам массив пусть будет a:array[1..20] of integer, содержит 20 элементов целого типа, приступим к набору программы.
var
j,km,kp:integer;
a:array[1..20] of integer;
begin
km:=0;kp:=0; {обнулим счетчики}
randomize; {запустим службу генерирования случайных чисел}
for j:=1 to 20 do
begin
a[j]:=random(100)-50; {заполним массив случайными числами}
writeln(' a[',j,']= ',a[j]); {напечатаем его}
end;
{далее перейдем к поиску элементов}
for j := 1 to 20 do
begin
if a[j]<0 then km:=km+1;
if a[j]>0 then kp:=kp+1;
end;
write('pologitel''nix: ',kp,'otricatel''nix: ',km);
readln;
end.
1. найти сумму чисел с 1 до n
Program ffff;
Uses crt;
var n,i,s:integer;
begin
writeln ('Кол-во цифр');
readln (n);
for i:=1 to n do
s:=s+i;
writeln (s);
end.
Если сегодня четное число месяца , то я беру с собой на 10 рублей больше чем обычно
Program ffff;
Uses crt;
var n,i:integer;
begin
writeln ('Сколько я беру обычно');
readln (n);
writeln ('Какое сегодня число');
readln (i);
if i mod 2 = 0
then n:=n+10;
writeln (n,' рублей я сегодня беру');
end.
Я не трус, но я боюсь! (Бриллиантовая рука)
Да нам, царям, молоко нужно выдавать за вредность! (Иван Васильевич меняет профессию)
Этот нехороший человек предаст нас при первой же опасности! (Джентльмены удачи)
Бамбардия! Киргуду! Шутка! (Кавказская пленница)
Шурик, это же не наш метод! (Операция Ы и другие приключения Шурика)
Восток – дело тонкое. (Белое солнце пустыни)
Утром деньги – вечером стулья,вечером деньги – ночью стулья… (Двенадцать стульев)
Он, конечно. Виноват, но он… не виноват… (Берегись автомобиля)
Бриллиантовая рука - это не совсем верный ответ. В "Бриллиантовой руке" эта фраза тоже есть. Но впервые она появилась в фильме "Полосатый рейс"
<span>C#
Создайте приложение, в котором по нажатию клавиши мыши в месте щелчка выводилось название нажатой клавиши мыши.
</span>