Скодом программы которая считывает из входного файла 3 числа и из них находит 2 наименьших. на pascal.net.
246
284
Ответы на вопрос:
Pascalabc.net 3.4.2, сборка 1837 от 11.10.2018 внимание! если программа не работает, обновите версию!
begin
var a: =readalltext('input.txt').toreals.take(3).toarray;
a.where(t-> t< > a.max).println
end.
во втором вложении - тестовый файл input.txt
//pascal //1) var a: array[1..5, 1..8] of integer; i, j: byte; sumr, sumc: integer; begin randomize; writeln('исходный массив': 28); for i : = 1 to 5 do begin for j : = 1 to 8 do begin a[i, j] : = random(61)-30; write(a[i,j]: 5); if i = 3 then sumr : = sumr + a[i, j]; if j = 5 then sumc : = sumc + a[i, j]; end; writeln; end; writeln('сумма элементов 5 столбца = ', sumc); writeln('сумма элементов 3 строки = ', sumr); end. //2) var a: array[1..5, 1..8] of integer; i, j: byte; suma, sumb, countv, countg: integer; begin randomize; writeln('исходный массив': 28); for i : = 1 to 5 do begin for j : = 1 to 8 do begin a[i, j] : = random(300)-150; write(a[i,j]: 5); if ((i = 5) and (a[i, j] < 0)) then suma : = suma + a[i, j]; if ((j = 4) and (a[i, j] < 100)) then sumb : = sumb + a[i, j]; if ((i = 4) and (a[i, j] < 5)) then countv : = countv + 1; if ((j = 2) and (a[i, j] > 15)) then countg : = countg + 1; end; writeln; end; writeln('сумма отрицательных 5 строки = ', suma); writeln('сумма меньших 100 4-ого столбца = ', sumb); writeln('количество меньших 5 4-ой строки = ', countv); writeln('количество ненулевых, больших 15 2-ого столбца = ', countg); end.
Популярно: Информатика
-
r297354823.11.2020 09:09
-
Danilfaha28.02.2022 04:50
-
DrYgAn899816.10.2022 01:47
-
vkuke30.05.2021 03:57
-
пргремм605.11.2021 07:12
-
домашка6830.05.2020 10:36
-
Andreyvko123.10.2022 10:13
-
Malina23516.07.2021 15:14
-
tafefuyozo22.11.2020 23:24
-
sasd203.08.2022 15:34