Регистрация
citceralekseip010ay
23.01.2023 04:11
Информатика
Есть ответ 👍

Дан массив из 10 вещественных чисел. найти min элемент и его номер

180
254
Посмотреть ответы 2

Ответы на вопрос:

Alien1712
Alien1712
4,8(80 оценок)
Uses crt; var   mas: array[1..10] of integer; i,min,ind: integer; begin randomize; for i: =1 to 10 do begin   mas[i]: =random(40)+20 ;   write(mas[i], ' '); end; writeln(); writeln(); min: =mas[1]; for i: =1 to 10 do begin     if (min> mas[i]) then       begin       min: =mas[i];       ind: =i;     end; end; write('минимальный элемент массива: ',min, ' ,находится на ', ind, ' месте'); end.
nadezdamanuh
nadezdamanuh
4,8(40 оценок)
Var a: array [1..250, 1..250] of integer; // матрица с числами.n, m, i, j: integer; function prime(a: integer): boolean; //проверка на простоту.vari: integer; f: boolean; begin  for i : = 2 to trunc(sqrt(a)) do    if (a mod i = 0) then      begin          f : = true;           break;       end; prime : = f; end; beginreadln(n, m); // ввод размера матрицы.for i : = 1 to n dobeginfor j : = 1 to m doread(a[i][j]); readln; end; for i : = 1 to m do  for j : = 1 to n do    if (not prime(a[j][i]))    then      begin      inc(a[n + 1][i]);       inc(a[n + 2][i], a[j][i]);       end; for i : = 1 to m do  writeln(a[n + 1][i],' ',a[n + 2][i]); // вывод суммы и кол - ваreadln; end.

Популярно: Информатика