М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
sbux44
sbux44
21.09.2021 18:58 •  Информатика

Найти и вывести среднее арифметическое значение элементов тех строк, последний элемент которых равен 1. C++

👇
Ответ:
annakot3
annakot3
21.09.2021

#include <iostream>

#include <vector>

#include <cstdlib>

#include <ctime>

using namespace std;

int main() {

srand(time(0));

setlocale(LC_ALL, "Russian");

vector< vector<int> > arr;

vector<float> average;

float result = 0;

arr.resize(10);

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

 arr[i].resize(10);

}

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

 for (int j = 0; j < arr[i].size(); ++j) {

  arr[i][j] = rand()%10;

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

  if (j == arr[i].size() - 1) {

   cout << endl;

  }

 }

}

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

 if (arr[i][arr[i].size() - 1] == 1) {

  for (int j = 0; j < arr[i].size(); ++j) {

   average.push_back(arr[i][j]);

  }

 }

}

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

 result += average[i];

}

if (average.size() == 0) {

 cout << endl << "Единицы отсутствуют.";

 return 0;

}

result /= average.size();

cout << result;

}

4,4(35 оценок)
Открыть все ответы
Ответ:
vika13082001
vika13082001
21.09.2021
1)
var f:text; a:array[1..7] of real; i,k,c,x:integer; s:string;
begin
 for i:=1 to 7 do
   begin
    readln(x);
    a[i]:=x;
   end;
 assign(f,'file.txt');
 rewrite(f);
 for i:=1 to 7 do
   begin
    str(a[i],s);
    writeln(f,s);
   end;
 close(f);
 reset(f);
 k:=0;
 while not eof(f) do
   begin
    readln(f,s);
    val(s,x,c);
    if x<0 then k:=k+1;
   end;
 close(f);
 if k<>0 then writeln('В массиве ',k,' отрицательных элемента(ов)');
  else writeln('В массиве нет отрицательных элементов');
 erase(f);
end.

2)
Var a,b,c,d:integer;

Function max(a,b:integer):integer;
begin
 if a>b then max:=a
  else max:=b;
end;

Begin
 readln(a,b,c,d);
 a:=(max(a,b)); 
 b:=(max(c,d));
 writeln('max=',max(a,b));
End.
4,8(12 оценок)
Ответ:
vvickina
vvickina
21.09.2021

function Len(x1,y1, x2, y2:real):real;

begin

   Len := sqrt( sqr(x1 - x2) + sqr(y1 - y2) );

end;

 

var

  x1,x2,x3,x4,x5, y1, y2, y3, y4, y5:real;

begin

   write('x1 = '); readln(x1);

   write('y1 = '); readln(y1);

   write('x2 = '); readln(x2);

   write('y2 = '); readln(y2);

   write('x3 = '); readln(x3);

   write('y3 = '); readln(y3);

   write('x4 = '); readln(x4);

   write('y4 = '); readln(y4);

   write('x5 = '); readln(x5);

   write('y5 = '); readln(y5);

   writeln('P = ', Len(x1,y1,x2,y2) + Len(x2,y2,x3,y3) + Len(x3,y3,x4,y4) + Len(x4,y4,x5,y5) + Len(x5,y5,x1,y1));

end.

 

4,6(57 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ