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

Найти сумму элементов массива h(11) ,стоящих на четных местах и их количество

👇
Ответ:
samikby
samikby
17.09.2020
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26   #include "stdafx.h" #include <stdio.h> #include <iostream> using namespace std; void main() { int V[10]; int summ = 0; // Ручное заполнение массива cout << "Init Array" << endl; for(int i = 0; i < 10; ++i) { cout << "Cell " << i << " = "; cin >> V[i]; cout << endl; } // Подсчёт суммы чётных значений чётных ячеек массива for (int i = 2; i < 10; i = i + 2) { if(V[i]%2 == 0 ) summ += V[i]; } cout<<"Summ="<< summ << endl; cin.get();
4,6(53 оценок)
Ответ:
RinOkumura99
RinOkumura99
17.09.2020

var

n:array [1..11] of integer;

i,k,s:integer;

begin

for i:=1 to 11 do begin

write ('N[',i,'] = ');readln(n[i]);

end;

s:=0;

k:=0;

for i:=1 to 11do

if odd(i)=true then begin

k:=k+1;

s:=s+n[i];

end;

writeln (k);

writeln (s);

readln;

end.

4,7(11 оценок)
Открыть все ответы
Ответ:
Дорога, соединяющая города i и j, даст единицу в две позиции - (i, j) и (j, i). Тогда общее количество единиц в матрице равно удвоенному числу дорог. Отсюда и простое решение - считать N^2 чисел, подсчитать количество единиц и поделить его на 2. Можно считать и сумму - от этого ничего не изменится.

   #include <iostream> 
   int main() {
       int n = 0, sum = 0, temp = 0;
       std :: cin >> n;
       for (int i = 0; i < n * n; i++) {
           std :: cin >> temp;
           sum += temp;
       }
       std :: cout << sum / 2;
       return 0;
   }
4,6(57 оценок)
Ответ:
Ele4ka17
Ele4ka17
17.09.2020
// PascalABC.NET 3.0, сборка 1076
var
  a,b,c,p,s:real;
begin
  Writeln('Введите через пробел стороны треугольника: ');
  Read(a,b,c);
  if (a+b>c) and (a+c>b) and (b+c>a) then begin
    p:=(a+b+c)/2;
    s:=sqrt(p*(p-a)*(p-b)*(p-c));
    Writeln('Площадь треугольника равна ',s)
    end
  else Writeln('Невозможно построить треугольник')
end.
 
Тестовые решения:
Введите через пробел стороны треугольника:
10 15 13.6
Площадь треугольника равна 66.3272183948641

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