1.В Старой Греции,разговаривают,была демократия. И все решали голосованием. По каждому вопросу

1.В Древней Греции,разговаривают,была демократия. И все решали голосованием. По каждому вопросу гражданин ,к примеру,Афин мог проголосовать quot;заquot;,quot;противquot; или не голосовать вообщем. Напишите программу,которая бы подсчитывала число гласов и выводила на экран известие о том, принято решение или отвергнуто.(Количество голосующих 10). 2.В массиве хранятся величины роста студентов(от 150 до 230 см).Определить,сколько человек сумеют попасть в команду по баскетболу. Аспект отбора-малый рост 180 см. Примечание:Массив заполняется случайными числами. В начале программки его нужно вывести

Задать свой вопрос
1 ответ

program zz1;
var i,j,s1,s2,s3,k:integer;
mas:array[1..10] of integer;
begin
for i:=1 to 10 do // вводим с клавиатуры исходные данные
begin
write(введите глас ,i,-го гражданина (0-не голосует, 1-за, 2-против));
read(k);
if k=0 then s1:=s1+1;
if k=1 then s2:=s2+1;
if k=2 then s3:=s3+1;
end;
if (s2gt;s3)and(s2gt;s1) then writeln( решение принято ) else writeln( решение не принято ) ; // выводим ответ
for i:=1 to 10 do // вводим случайные числа в массив
begin
mas[i]:=random(81)+150;
write(mas[i], );
if mas[i]gt;=180 then j:=j+1;
end;
writeln;
write( количество человек попавших в команду = ,j);
end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт