Ислямова Д.М. Павлодар қаласының №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 мектебінің информатика мұғалімі
for i:=1 to 30 do
if a[i]<0 then
b[i]:=-a[i] else b[i]:=a[i];
readln;
for i:=1 to 30 do
write(b[i]:4);
Writeln;
readln;
end.
Теріс таңбалы элементтерді оңға алмастыру
В жиымын шығару
Ислямова Д.М. Павлодар қаласының №40 мектебінің информатика мұғалімі
Бірөлшемді жиымның (жалпы көрінісі)
Сипаттамасы:
const N = 5;
var a: array[1..N] of integer;
i: integer;
for i:=1 to N do begin
write('a[', i, ']=');
read ( a[i] );
end;
for i:=1 to N do a[i]:=a[i]*2;
writeln('Массив A:');
for i:=1 to N do write(a[i]:4);
Элементтік операция:
Экранға шығару:
Пернетақтадан енгізу:
Ислямова Д.М. Павлодар қаласының №40 мектебінің информатика мұғалімі
