1.в древней греции,говорят,была демократия. и все - вопрос №52860441 от 6ytq3j5uhGBQ 03.01.2020 08:34

Question

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

6ytq3j5uhGBQ · Answer

Pascal1){-1 - против; 0 - не голосовал; 1 - за. В приложении пример ввода}var i,s,a:integer;beginfor i:=1 to 10 dobeginread(a);s:=s+a;end;if s=0 then writeln( 50/50 ) elseif s 0 then writeln( IIPOTUB ) else writeln( 3A );end.2){сначала вводим кол-во студентов}uses crt;var a:array[1..100] of integer;k, i, s:integer;beginclrscr;randomize;read(k);for i:=1 to k dobegina[i]:=random(150, 230);write(a[i], );end;for i:=1 to k doif a[i] =180 then s:=s+1;writeln(s);end....