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

1. найти среднее арифметическое двузначных чисел кратных 7 2. найти среднее арифметическое первых 10 чисел делящихся на 5 (в паскале)

👇
Ответ:
polka3893
polka3893
10.02.2022
//1
var
average:real;
i,cnt:integer;
Begin
For i:= 10 to 99 do
  if (i mod 7 = 0) then
    begin
      average := average + i;
      inc(cnt);
    end;
average:=average / cnt;
Writeln(average);
end.
//2
var
average:real;
i,cnt:integer;
Begin
i:= 0;cnt:= 0;
while (true) do begin
  inc(i);
  if (i mod 5 = 0) then
    inc(cnt);
  average:=average + i;
  if (cnt = 10) then
    break
end;
average := average / 10;
Writeln(average);
end.
4,6(25 оценок)
Ответ:
svetlana6712
svetlana6712
10.02.2022
Begin

var m,u,p,t:integer;

 for var i:=10 to 99 do

 if i mod 7 =0 then

 begin

 m:=m+i; u:=u+1;

 end;

 Writeln('Среднее чисел которые дклятся на 7=',m/u);

 for var i:=1 to 99 do

 if i mod 5 = 0 then

 begin

 p:=p+i; t:=t+1;

 if t > 10 then break; 

 end;

 Writeln('Среднее чисел которые дклятся на 5=',p/t);

end.
4,8(85 оценок)
Открыть все ответы
Ответ:
Grechk
Grechk
10.02.2022

#include <iostream>

int main() {

const int SIZE = 10;

bool isSence = false;

int sum = 0;

int count = 0;

int arr[SIZE];

for (int i = 0; i < SIZE; i++)

{

 arr[i] = rand() % 20 - 10; // "рандомно" заполняем массив от -10 до 10

 std::cout << arr[i] << "\t"; // выводим массив в консоль

 if (arr[i] >= 0)

  isSence = true;

}

for (int i = 0; i < SIZE; i++)

{

 if ((isSence) && (arr[i] > 0))

  sum += arr[i]; //sum = sum + arr[i];

  count++;

}

if (isSence)

 std::cout << "\nсреднее арифметическое положительных чисел = " << double(sum) / count << std::endl; // явное приведение типов

else

 std::cout << "\nВ массиве нету положительных чисел или нету нулей и/или отрицательных чисел" << std::endl;

return 0;

}

4,4(24 оценок)
Ответ:
Borkborkk
Borkborkk
10.02.2022

1) От 10 до 14

2) random(1, 10); random(-10,10); random(50,100);

3)

var a:array[1..100] of integer;

   i, p, o:integer;

begin

 p := 0;

 o := 0;

 for i := 1 to 100 do

   a[i] := random(-20, 20);

 writeln(a);

 for i := 1 to 100 do begin

   if a[i] >= 0 then p := p + 1

   else o := o + 1;

 end;

 writeln('Положительных: ' + p);

 writeln('Отрицательных: ' + o);

end.

4)

var a:array[1..20] of integer;

   b:array[1..20] of integer;

   i:integer;

begin

 randomize;

 for i := 1 to 20 do

   begin

   a[i] := random(1, 5);

   b[i] := random(1, 5);

   end;

 for i := 1 to 20 do begin

   if a[i] = b[i] then begin

   writeln('Номер: ' + i);

   writeln('Значение: ' + a[i]);

   end;

 end;

end.

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