В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
mika183
mika183
01.10.2020 17:26 •  Информатика

Вещественная переменная В — единственная переменная, используемая в некоторой программе. Как будет выглядеть раздел описания переменных в этой программе?

Показать ответ
Ответ:
Metrofanovaa
Metrofanovaa
21.03.2020 04:54

//c++

#include <iostream>

#include <cmath>

#include <ctime>

using namespace std;

signed main() {

srand(time(NULL));

setlocale(LC_ALL, "Rus");

int matrix[5][5];

long int pr = 1;

cout << "Сгенерированная матрица: " << endl;

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

 for (int j = 0; j < 5; j++) {

  matrix[i][j] = rand() % 15;

  cout << matrix[i][j] << " ";

  if (matrix[i][j] % 2 != 0)

   pr *= matrix[i][j];

 }

 cout << endl;

}

cout << "\nПроизведение нечетных элементов: " << pr << endl;

return 0;

}

0,0(0 оценок)
Ответ:
кириешка5
кириешка5
06.06.2021 08:09

var

 t : array of double;

 i, n, mincount, midUp, midDown : integer;

 mid : double;

begin

 write('Введите кол-во элементов массива :');

 readln(n);

 randomize;

 setlength(t, n);

 mincount:=0;

 for i:=0 to n-1 do begin

   t[i] := random(10)/10;

   write(t[i]:1:1,'  ');

   if t[i]<0.3 then inc(mincount);

 end;

 writeln('');

 writeln('Кол-во элементов <0.3 =',mincount);

 writeln('---------------- задача 2 --------------');

 mid:=0;

 for i:=0 to n-1 do begin

   t[i] := random(10)*100 +random(10)*10 +random(10);

   mid:=mid+t[i];

   write(t[i]:0:0,' ');

 end;

 mid:=mid/n;

 midUp:=0;    midDown:=0;

 for i:=0 to n-1 do begin

   if t[i]<mid then inc(midDown);

   if t[i]>mid then inc(midUp);

 end;

 writeln();

 writeln('Средняя з/п = ',mid:1:1);

 writeln('Кол-во работников с з/п выше средней =', midUp);

 writeln('Кол-во работников с з/п ниже средней =', midDown);

end.


1. Разработать программу на языке программирования Turbo Pascal: а) в массиве t(n), где n - заданное
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота