Дописать программу на Паскаль.Массивы - Pascal

Задание: Запишите полные тексты двух последних программ и выполните их на компьютере. 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)

Сейчас идёт урок,помогите пожалуйста

textual
                            Листинг программы 
                        
                             if (a[i] > 50) and (a[i] < 50) then

Оцени полезность:

11 голосов , оценка 4.182 из 5

Похожие ответы