Синформатикой! огромное ! : запишите полные тексты двух последних программ и выполните их на компьютере. 1 программа) k: = 0 ; for i: =1 to 10 do if a [i] > 50 then k: = k+1 ; write (' k=' , k) 2 программа) s: = 0 ; for i: = 1 to 10 do if ( a [i]> 50) and ( a [i]< 50) then s: =s+a [i] ; write ( ' s=' , s)

189

485

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

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

Отличник1029

Информатика

4,7(11 оценок)

Точно не знаю. наверное будет так: var a: array[1..10000] of integer; n,x,i,k: integer; begin read(n); k: =0; for i: =1 to n do read(a[i]); read(x); for i: =1 to n do if a[i]=x then begin k: =k+1; write(i,' '); end; if k=0 then write(-1); end я не совсем понял .