Ислямова Д.М. Павлодар қаласының №40 мектебінің информатика мұғалімі
Бағдарлама
const N = 5;
var a: array [1..N] of integer;
i, iMax: integer;
begin
writeln(' Алғашқы жиым:');
for i:=1 to N do begin
a[i] := random(100) + 50;
write(a[i]:4);
end;
[50,150) интервал аралығындағы кездейсоқ сан
Ислямова Д.М. Павлодар қаласының №40 мектебінің информатика мұғалімі
iMax := 1; {біріншісі, максимал деп санаймыз}
for i:=2 to N do {қалғандарын тексереміз }
if a[i] > a[iMax] then { жаңа максималды}
iMax := i; {есте сақта i }
writeln; {келесі жолға көшу}
writeln('Макс.элемент a[', iMax, ']=', a[iMax]);
end.
Максималды іздеу
Макс.элементті шығару
Бағдарлама /жалғасы
Ислямова Д.М. Павлодар қаласының №40 мектебінің информатика мұғалімі
Pascal программалау тілінде берілген бүтін сандар жиымы көлемі 30 элемент болатын, басқа жиымнан, оның элементтерінің мәні бірінші жиымның мәндерінің модульдері болған жағдайдағы алгоритм құру.
Есептер шығару үлгісі
Ислямова Д.М. Павлодар қаласының №40 мектебінің информатика мұғалімі
1
2
3
4
5
A
жиымы
5
-10
- 5
20
-25
A[1]<0?
A[2]<0?
B жиымы:
5 10 5 20 25
Есептер шығару үлгісі
жоқ
иә
A[3]<0?
иә
A[4]<0?
A[3]<0?
жоқ
иә
Алгоритм:
Бағдарлама
Ислямова Д.М. Павлодар қаласының №40 мектебінің информатика мұғалімі
var a,b:array[1..30] of integer; i:integer;
begin
for i:=1 to 30 do
begin
write('a[',i,']=');
read(a[i]);
end;
Бағдарлама
Ислямова Д.М. Павлодар қаласының №40 мектебінің информатика мұғалімі