Даны различные действительные числа x, y, z, d. найти min(max(x, y), max (x, z), max(z,

Відповідь:

#include <iostream>

#include <cstdlib>

#include <time.h>

using namespace std;

void randarr(int *A,const int size){

for(int i = 0; i < size; i++){

 A[i] = rand() % 201 - 100;

}

}

void printarr(int *A,const int size){

for(int i = 0; i < size; i++){

 cout << A[i] << " ";

}

}

float expression(int *A,int size){

float sum = 0;

int counter = 0;

for(int i = 0; i < size; i++){

 if(A[i] > 0){

  sum += A[i];

  counter++;

 }

}

sum /= counter;

return sum;

}

const int size = 10;

int main(){

srand(time(NULL));

setlocale(LC_ALL , "Ukrainian");

int A[size];

randarr(A,size);

printarr(A,size);  

cout << "\nСереднє арифметичне додатнiх чисел = " << expression(A,size) << endl;

 

return 0;                                                                  

}

2)
USES CRT;
VAR A:array[0..200] of integer;   
       i,max,s:integer;
BEGIN
CLRSCR;
Randomize;   
   Writeln('Дан массив:'); 
   for i:=0 to 200 do     
      begin         
         A[i]:=-100+random(150);         
         Write(A[i],'   ');     
      end;

       s:=0;   
       max:=A[0];

       for i:=0 to 200 do     
          begin         
             if A[i] > max then max:=A[i];         
             if A[i]>=0 then s:=s+1;     
          end;   
       
        Writeln;   
        Writeln('Максимальный элемент массива  = ', max);   
        Writeln('Кол-во положительных элементов = ',s);
READLN;
END.