Нужна программа в паскале! : задать с клавиатуры массив, состоящий из 10 целых чисел и просчитать кол-во элементов > k (k ввести с клавиатуры). на экран вывести массив в строчку через пробел и кол-во искомых элементов.

273

329

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

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

oksana1382

Информатика

4,6(62 оценок)

Var ar: array[1..10] of integer; k,i,n: integer; begin readln(k); for i: =1 to 10 do begin; readln(ar[i]); if ar[i]> k then n: =n+1; end; writeln('array: '); for i: =1 to 10 do write(ar[i]: 4); writeln; write('res: ',n); end.

ALINASVETLYRULIT

Информатика

4,8(80 оценок)

Відповідь:

Отче наш, сущий на небесах! Да святится имя Твоё; да приидет Царствие Твоё; да будет воля Твоя и на земле, как на небе; хлеб наш насущный подавай нам на каждый день; и прости нам грехи наши, ибо и мы прощаем всякому должнику нашему; и не введи нас в искушение, но избавь нас от лукавого.

Пояснення: