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

(x< 25 )и не (x делится на 8)​ найдете наименьшее

Показать ответ
Ответ:
vladmakarchuk80
vladmakarchuk80
14.09.2022 02:56
Const CSize1=7;
      CSize2=6;
      CSize3=5;
type TMas1=array[1..CSize1,1..CSize1] of integer;
     TMas2=array[1..Csize2, 1..CSize2] of integer;
     TMas3=array[1..Csize3, 1..CSize3] of integer;

var A1:TMas1;
    A2:TMas2;
    A3:TMas3;
    i,j,x, y:byte;

function zero(i:integer):boolean;
begin
zero:=false;
if i=0 then zero:=true;
end;

function interval(i:integer):boolean;
begin
interval:=false;
if (i<=12) and (i>=1) then interval:=true;
end;

begin
X:=0;
Y:=0;
randomize;
for i:=1 to CSize1 do
 begin
 for j:=1 to CSize1 do
  begin
  A1[i, j]:=random(50);
  write(A1[i, j]:3);
  if zero(A1[i, j]) then inc(x);
  if interval(A1[i,j]) then inc(y);
  end;
 writeln;
 end;
writeln('Kol-vo 0 =', x);
writeln('Kol-vo v intervale=', y);
writeln;
x:=0;
y:=0;
for i:=1 to CSize2 do
 begin
 for j:=1 to CSize2 do
  begin
  A2[i, j]:=random(50);
  write(A2[i,j]:3);
  if zero(A1[i,j]) then inc(x);
  if interval(A2[i,j]) then inc(y);
  end;
 writeln;
 end;
writeln('Kol-vo 0 =', x);
writeln('Kol-vo v intervale=', y);
writeln;
x:=0;
y:=0;
for i:=1 to CSize3 do
 begin
 for j:=1 to CSize3 do
  begin
  A3[i, j]:=random(50);
  write(A3[i,j]:3);
  if zero(A3[i,j]) then inc(x);
  if interval(A3[i,j]) then inc(y);
  end;
 writeln;
 end;
writeln('Kol-vo 0 =', x);
writeln('Kol-vo v intervale=', y);
writeln;
x:=0;
y:=0;
end.
0,0(0 оценок)
Ответ:
РенаКОСЫРЕВА
РенаКОСЫРЕВА
22.08.2022 13:26

#include <iostream>

using namespace std;

int main() {

setlocale(LC_ALL, "");

int N = 10;

int max = -9999999;

int sum = 0;

int choise = 0;

int arr[N] = {0};

cout << "Введите 10 значений: ";

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

cin >> arr[i];

}

cout << "Введите действие (1 - +, 2 - макс. значение, 3 - колво отр. значений)";

cin >> choise;

if(choise==1) {

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

sum+=arr[i];

}

cout << endl << "Сумма: " << sum;

}

if(choise==2) {

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

if(arr[i]>max) {

max = arr[i];

}

}

 cout << endl << "Макс. знач: " << max;

}

if(choise==3) {

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

   if(arr[i]<0) {

     ++sum;

   }

 }

 cout << "Колво отр. знач: " << sum;

}

 if(choise!=1&&choise!=2&&choise!=3) {

   cout << "Введите корректное значение.";

 }

 return 0;

}

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