Ответы на вопрос:
// pascalabc.net 3.2, сборка 1488 от 21.06.2017 // внимание! если программа не работает, обновите версию! begin writeln('*** исходный массив ***'); var a: =matrrandom(3,6,-99,99); a.println(4); var s: =a.elementswithindexes.minby(x-> x[0]); writeln('минимальный элемент a[',s[1]+1,',',s[2]+1,']=',s[0]); end. пример *** исходный массив *** 91 73 -71 -52 -58 68 37 -74 14 -58 -64 27 89 -62 14 -33 -9 78 минимальный элемент a[2,2]=-74
Vara,b,z,x: integer; begin writeln('введите первое число'); readln(a); writeln('введите второе число'); readln(b); writeln('введите третье число равное первому'); readln(z); a: =1; while a< =z do begin x: =x+b; a: =a+1; end; writeln('произведение равно = ',x) end.
Популярно: Информатика
-
pkristishapkristisha30.05.2022 09:13
-
Tatjanaaa29.01.2020 15:32
-
vladislav423914.09.2020 13:51
-
lychik111107.10.2020 21:30
-
valeriuadobro2030.04.2020 21:44
-
LIMON4IKBRO23.04.2020 10:28
-
Matvey006106.03.2020 20:28
-
daryabozhko200618.06.2023 17:57
-
20093928.04.2020 17:06
-
Masterpro12306.02.2021 19:56