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

Програмирование на языке c++
: (любое сделайте )
3. заповнити масив випадковими оцінками студентів(числа із діапазону 1..12). знайти середню оцінку студентів групи. кількість студентів у групі – деяка константа.
4. утворити одновимірний масив розміром 10. заповнити його числами від 0 до 9, тобто (0, 1, 2, 3, … 9). вивести елементи масиву на екран.
5. утворити одновимірний масив розміром 10. заповнити його числами від 1 до 10. вивести елементи масиву на екран.
6. утворити одновимірний масив розміром 30. заповнити його числами, які є степенями 2: (1, 2, 4, 8, 16, ). вивести елементи масиву на екран. виконати 2-ма утворити одновимірний масив розміром 30. заповнити його числами фібоначі: (1, 1, 2, 3, 5, 8, 13, 21 ). вивести елементи масиву на екран. число фібоначі рівне сумі двох попередніх чисел фібоначі. перші два числа рівні 1.
8. дано одновимірний масив. знайти найбільший та найменший елементи масиву та поміняти їх у масиві місцями.
9. дано одновимірний масив . знайти суму елементів після першого нуля у масиві.

👇
Открыть все ответы
Ответ:
docogov
docogov
07.11.2022
Program lyly;

const
  n = 4;

var
  a: array[1..n, 1..n] of integer;
  i, j, s: integer;
  sr: real;

begin
  s := 0;
  Writeln('Исходная матрица');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := Random(256);
      Write(a[i, j]:5);
      s := s + a[i, j]
    end;
    Writeln
  end;
  sr := s / sqr(n);
  Writeln('Средняя яркость', sr);
  Writeln('Результирующая матрица');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      if a[i, j] <= sr then a[i, j] := 0 else a[i, j] := 255;
      Write(a[i, j]:5)
    end;
    Writeln
  end
end.

Тестовое решение:

Исходная матрица
  108  247    9  175
   10   80  123   80
   75  165   82  128
  167  168    6   27
Средняя яркость103.125
Результирующая матрица
  255  255    0  255
    0    0  255    0
    0  255    0  255
  255  255    0    0
4,6(50 оценок)
Ответ:
dylanboy
dylanboy
07.11.2022
Program treug;
var a,b,c:integer;
label l1,l2;
begin
l1:
writeln ('Укажите стороны треугольника:'); read (a,b,c);
if (a<=0) or (b<=0) or (c<=0) then begin 
writeln ('Проверьте правильность введенных данных'); goto l1;
end;
if (a=b) and (a=c) and (b=c) then begin
writeln ('Треугольник с указанными параметрами - равносторонний'); goto l2; end;
if (a=b) or (a=c) or (b=c) then begin
writeln ('Треугольник с указанными параметрами - равнобедренный'); goto l2;
end;
writeln ('Треугольник с указанными параметрами - разносторонний');
l2:
end.
4,6(30 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ