Var a:array[1..10] of integer; k,x:integer; begin x:=0; writeln('Введите числа'); for k:=1 to 10 do begin readln(a[k]); if a[k]>0 then x:=x+1; end; writeln('Количество положительных цифр равняется ',x); end.
/*Дан массив X(N,M) .Найти среднее арифметическое тех строк массива, первый элемент которых положительный*/#include <iostream>#include <time.h>#define M 5#define N 5using namespace std; void printArray(int *mas, int n,int m)//инициализация и вывод массива { srand(time(0)); for (int i = 0; i < n; i++) { for (int j = 0; j < m; j++) { *mas = rand() % 21-10; cout << *mas << "\t"; mas++; } cout << endl; }}
void srArray(int mas[][M], int n)//нахождение и подсчет тех строк, где первый элемент положительный{ int a; double sum = 0; for (int i = 0; i < n; i++) { double sr = 1; if (mas[i][0] > 0) { for (int j = 0; j < M; j++) { sum += mas[i][j]; } sr = sum / M; cout << "Ср элеменитов " << i + 1 << "-й строки = " << sr << endl; } else ; } }
void main()//основная функция{ setlocale(LC_ALL, "rus"); int x[N][M]; printArray(&x[0][0], N, M); cout << endl; cout << ""<<endl; srArray(x, N); system("pause");}
k,x:integer;
begin
x:=0;
writeln('Введите числа');
for k:=1 to 10 do
begin
readln(a[k]);
if a[k]>0 then x:=x+1;
end;
writeln('Количество положительных цифр равняется ',x);
end.