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

4) Одномерные массивы 1. Дан одномерный массив, состоящий из N целочисленных элементов. Ввести массив с клавиатуры. Найти максимальный элемент. Вывести массив на экран в обратном порядке.
2. В массиве действительных чисел все нулевые элементы заменить на среднее арифметическое всех элементов массива.
3. В одномерном числовом массиве D длиной n вычислить сумму элементов с нечетными индексами. Вывести на экран массив D, полученную сумму.
4. Дан одномерный массив из 8 элементов. Заменить все элементы массива меньшие 15 их удвоенными значениями. Вывести на экран монитора преобразованный массив.
5. Дан массив целых чисел. Найти максимальный элемент массива и его порядковый номер.
c++

Показать ответ
Ответ:
detsadraduga10
detsadraduga10
24.04.2023 01:54
Program aaa;
var A: array[1..100,1..100] of integer; n,k,r,c,x: integer; i,j: byte;
begin 
 randomize;
 writeln ('Введите N, K, R, C');
 readln (n,k,c,r);
 x:=0;
 for i:=1 to n do begin
    for j:=1 to n do begin
        writeln ('Введите ',j,'-е число ',i,'-ой строки');
        readln (A[i,j]);
        //или можно ввести рандомно: A[i,j]:=random(0,1);
        if ((i>(r-k)) and (i<=r) and (j>(c-k)) and (j<=c) and (A[i,j]=1))
            then x:=x+1
    end
  end;
writeln;
// в следующем цикле выводится весь массив для наглядности
// его можно просто убрать если не нужен
      for i:=1 to n do begin
          for j:=1 to n do begin
              write (A[i,j]:3);
          end;
          writeln
      end;  
  writeln;
  writeln (x)
end.    
0,0(0 оценок)
Ответ:
sdgsdgsdgsdgsdg228
sdgsdgsdgsdgsdg228
18.05.2020 01:29
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
  var k:=0;
  var n:=ReadInteger();
  var nmax:=0;
  while n<>0 do begin
    Inc(k);
    if n mod 10 = 0 then
      if n>nmax then nmax:=n;
    n:=ReadInteger()  
    end;
  var cntrl:=ReadInteger();
  Writeln('Получено ',k,' чисел');
  Writeln('Полученное контрольное значение: ',cntrl);
  Writeln('Вычисленное контрольное значение: ',nmax);
  if cntrl=nmax then Writeln('Контроль пройден')
  else Writeln('Контроль не пройден')
end.

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