Перечислите свойства информации Информацию, отражающую истинное положение дел, реальную действительность, называют
Информацию, не зависящую от частного мнения или суждения, можно назвать ... .
Что такое облачные технологии?
Как делятся облачные технологии по назначению?
Что такое сетевой этикет?
Перечислите несколько правил сетевого этикета
Что такое флейм?
Перечислите важные характеристики при выборе конфигурации компьютера
Какие функции выполняет процессор?

На C++ #include <iostream>
using std::cout;
using std::cin;
using std::endl;
#include <cstdlib>
using std::rand;
using std::srand;
#include <ctime>
using std::time;int main()
{
   srand(time(0));
   int counter = 0;
   int growth;   for(int i = 0; i < 50; i++)
   {
      if((growth = rand() % 151 + 150) >= 170)
      {
         counter++;
      }
      cout << growth << ' ';
   }
   cout << endl << endl;   cout << counter << " pupil";
   cout << (counter != 1 ? "s" : "") << endl; // Если будет только 1 ученик,
                                             //то больше ничего не печатать
                                             //иначе - допечатать букву "s"   cin.get();
   return 0;

Var
  X: array [1..5, 1..5] of real;
  Y: array [1..4, 1..4] of real;
  i, j: byte;
  SumX, SumY: real;
begin
SumX := 0; SumY := 0;
writeln('Массив X':28);
for i := 1 to 5 do
begin
  for j := 1 to 5 do
  begin
    X[i, j] := random*40-20;
    if X[i, j] < 0 then SumX := SumX + X[i, j];
    write(X[i, j]:9:4);
  end;
  writeln;
end;
writeln;
writeln('Массив Y':28);
for i := 1 to 4 do
begin
  for j := 1 to 4 do
  begin
    Y[i, j] := random*40-20;
    if Y[i, j] < 0 then SumY := SumY + Y[i, j];
    write(Y[i, j]:9:4);
  end;
  writeln;
end;
writeln;
writeln('Сумма отрицательных массива X = ', SumX:9:4);
writeln('Сумма отрицательных массива Y = ', SumY:9:4);
if SumX > SumY then writeln('Сумма отрицательных X - больше.')
else if SumX < SumY then writeln('Сумма отрицательных Y - больше.')
else writeln('Сумма отрицательных X и Y равны.')
end.