1. составить программу, позволяющую в одномерном массиве вычислить количество элементов массива, равных первому элементу.

173

334

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

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

Relig1d

Информатика

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

Var a: array[1..10000]of integer; ans,n,i,f: integer; begin for i: =1 to n do read (a[i]); f: =a[1]; for i: =2 to n do if(a[i]=f)then inc(ans); writeln(ans); readln; end.

didocfofiffi

Информатика

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

// pascalabc.net 3.1, сборка 1230 от 27.04.2016 const n=10; begin var c: =readarrinteger('введите 10 чисел: ',10); writeln('сумма отрицательных равна ',c.where(x-> x< 0).sum); swap(c[0],c[4]); c.println; // сортировка for var i: =0 to n-2 do for var j: =0 to n-2 do if c[j]> c[j+1] then swap(c[j],c[j+1]); c.println end. тестовое решение введите 10 чисел: -45 18 20 40 -4 -7 -38 -26 6 -50 сумма отрицательных равна -170 -4 18 20 40 -45 -7 -38 -26 6 -50 -50 -45 -38 -26 -7 -4 6 18 20 40