Канат учится в 8 классе. В его школе 8 параллельных классов, которых по результатам I четверти І четверти получены результаты качества знаний. Канат, изучив полученные данные, решил занести их в таблицу ему выполнить задание.
Procedure GetAB(x: integer; var a: integer; var b: integer); begin a := 0; b := 1; while x > 0 do begin a := a + 1; b := b * (x mod 100); x := x div 100; end; end;
var x, a, b: integer;
begin for x := 10000 to 2000000000 do begin GetAB(x, a, b); if (a = 3) and (b = 18) then Println(a, b, x); end; end.
Const n=10; var a:array[1..n] of integer; i,s,min:integer; begin writeln('Исходный массив:'); for i:=1 to n do begin a[i]:=random(21)-10; write(a[i]:4); end; writeln; s:=0; min:=a[1]; for i:=1 to n do begin if a[i]>0 then s:=s+a[i]; if a[i]<min then min:=a[i]; end; writeln('s = ',s,' min = ',min); for i:=1 to n do if a[i]>0 then a[i]:=s else if a[i]<0 then a[i]:=a[i]-min; writeln('Измененный массив:'); for i:=1 to n do write(a[i]:4); writeln; end.
1) 8 "Д" - 81%
2) 8 "Е" - 37%
3) 70%
4) 20% (примерно)
5) 30% (примерно)
Объяснение:
сначала тоже долго не мог понять, оказывается все очень легко))