Втаблице dat хранятся данные о количестве учеников в классах (dat[1] — количество учеников в первом классе, dat[2] — во втором и т. определите, какое число будет напечатано в результате работы следующей программы. текст программы на пяти языках программирования. dim dat(11) as integer dim k, m as integer dat(1) = 20: dat(2) = 27 dat(3) = 19: dat(4) = 28 dat(5) = 26: dat(6) = 22 dat(7) = 24: dat(8) = 28 dat(9) = 26: dat(10) = 21 dat(11) = 27 m = 0; for k = 1 to 11 if dat(k) < 25 then m = dat(k) endif next k print m dat = [20, 27, 19, 28, 26, 22, 24, 28, 26, 21, 27] m = 0 for k in range(11): if dat[k] < 25: m = dat[k] print (m) паскаль алгоритмический язык var k, m: integer; dat: array[1..11] of integer; begin dat[1] : = 20; dat[2] : = 27; dat[3] : = 19; dat[4] : = 28; dat[5] : = 26; dat[6] : = 22; dat[7] : = 24; dat[8] : = 28; dat[9] : = 26; dat[10] : = 21; dat[11] : = 27; m : = 0; for k : = 1 to 11 do if dat[k] < 25 then begin m : = dat[k]; end; writeln(m); end. алг нач целтаб dat[1: 11] цел k, m dat[1] : = 20 dat[2] : = 27 dat[3] : = 19 dat[4] : = 28 dat[5] : = 26 dat[6] : = 22 dat[7] : = 24 dat[8] : = 28 dat[9] : = 26 dat[10] : = 21 dat[11] : = 27 m : = 0 нц для k от 1 до 11 если dat[k] < 25 то m : = dat[k] все кц вывод m кон с++ #include using namespace std; int main() { int dat[11] = {20, 27, 19, 28, 26, 22, 24, 28, 26, 21, 27}; int m = 0; for (int k = 0; k < 11; k++) if (dat[k] < 25) { m = dat[k]; } cout < < m; return 0; }
const n = 10000;//Не изменяемая по ходу программы переменная
var a: array[1..n] of integer; b: array[1..10]of integer; c: array[1..10]of integer; i, s, v: integer;
begin for i := 1 to 10 do //Заполнение массива с числами от 1 до 10 c[i] := i; for i := 1 to n do //Заполнение массива a[i] := random(10) + 1; //Делается для того чтобы в массиве не было нулей for i := 1 to n do case a[i] of 1: b[1] := b[1] + 1; 2: b[2] := b[2] + 1; 3: b[3] := b[3] + 1; 4: b[4] := b[4] + 1; 5: b[5] := b[5] + 1; 6: b[6] := b[6] + 1; 7: b[7] := b[7] + 1; 8: b[8] := b[8] + 1; 9: b[9] := b[9] + 1; 10: b[10] := b[10] + 1; End; for i := 1 to 10 do for s := 1 to 9 do if b[s] > b[s + 1] then begin v := b[s]; b[s] := b[s + 1]; b[s + 1] := v; v := c[s]; c[s] := c[s + 1]; c[s + 1] := v; end; writeln(c[10], ' - их ', b[10]); end.