<span>Задача №1 (( остальные по аналогии сделай ))
const n=3;var a:array[1..n,1..n] of integer; {Ввод массива N на N} i, j, sum: integer; {Ввод переменных}begin sum := 0; begin for i:= 1 to n do for j:= 1 to n do read(a[i,j]) end; for i:= 1 to n do begin for j:= 1 to n do if a[i,j] > 0 then sum:=sum + a[i,j] end; write('сумма = ', sum);end.</span>
128000 бит/с = 128000/8 байт/с= 16000байт/с ;
500Кбайт=500*1024 байт=512000байт
512000/16000= 32
Ответ. б) 32 с
1. Переменные n1,n2,n3 — для цифр числа
2. Переменная number — для числа
3. Переменная res — для True или False
var
number, n1, n2, n3 : integer; // объявляем
res : boolean; // переменные
begin
write('Введите трехзначное число : ');
readln(number); //
просим пользователя ввести число
readln; // чтобы программа не закрывалась end<span>.</span>
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
var n:=ReadInteger('Количество элементов=');
var b:=ArrRandomReal(n,-10,20);
b.Println(', ');
var mx:=b.Max;
var c:=b.Where(x->x<>mx);
c.Println(', ')
end.
<u><em>Тестовое решение:</em></u>
Количество элементов= 13
-3.19967562016085, 0.998729616868649, 17.2918094030078, 1.10658910642685, 10.4760369241592, 6.72070787601206, 8.34657945593194, 12.5555840984711, 13.4678390079494, -1.30778588881147, 19.5660732731065, 18.4909354934892, 9.13206894841607
-3.19967562016085, 0.998729616868649, 17.2918094030078, 1.10658910642685, 10.4760369241592, 6.72070787601206, 8.34657945593194, 12.5555840984711, 13.4678390079494, -1.30778588881147, 18.4909354934892, 9.13206894841607
расшифровка : Рі=(Сі - Кі = 26)
