Написать блок схему или написать программу кубэйсик выполнение плана заводом в течении года по месяцам представлено в виде массива месяц: 1 план: 101; месяц: 2 план: 98; месяц: 3 план: 100; месяц: 4 план: 108; месяц: 5 план: 97; месяц: 6 план: 106; месяц: 7 план: 99; месяц: 8 план: 100; месяц: 9 план: 112; месяц: 10 план: 96; месяц: 11 план: 107; месяц: 12 план: 98. в течении каких месяцев года план выполнялся и перевыполнялся?

161

392

Посмотреть ответы 2

Ответы на вопрос:

ИришкаTV

Информатика

4,4(1 оценок)

Data 101,98,100,108,97,106,99,100,112,96,107,98 dim a(1 to 12) as integer dim b(1 to 12) as integer, c(1 to 12) as integer dim i as integer, ib as integer, ic as integer cls ib = 0: ic = 0 for i = 1 to 12 read a(i) select case a(i) case 100 ib = ib + 1 b(ib) = i case is > 100 ic = ic + 1 c(ic) = i end select next i print "план (100%) в месяцах: "; for i = 1 to ib print b(i); next i print print "перевыполнение плана в месяцах "; for i = 1 to ic print c(i); next i end результат выполнения программы: план (100%) в месяцах: 3 8 перевыполнение плана в месяцах 1 4 6 9 11

подругаКатя

Информатика

4,4(42 оценок)

Program qwe; uses crt; var x: real; begin clrscr; write('введите возраст: '); readln(x); if x> 18 then writeln('da') else writeln('net'); readkey; end.