Представлю 3 программы два с массивом и один без массива
1)var a:array [1..10] of integer;
i,n,k5,k2:integer;
begin
writeln('введите количество экзаменов');
read(n);
for i:=1 to n do begin
writeln('введите оценку за экзамен');
readln(a[i]);
end;
for i:=1 to n do begin
if a[i]=5 then k5:=k5+1;
if a[i]=2 then k2:=k2+1;
end;
writeln('количество пятерок ',k5);
writeln('количество двоек ',k2);
end.
2)var a:array [1..10] of integer;
i,n,k5,k2:integer;
begin
writeln('введите количество экзаменов');
read(n);
for i:=1 to n do begin
writeln('введите оценку за экзамен');
readln(a[i]);
if a[i]=5 then k5:=k5+1;
if a[i]=2 then k2:=k2+1;
end;
writeln('количество пятерок ',k5);
writeln('количество двоек ',k2);
end.
3)var a,i,n,k5,k2:integer;
begin
writeln('введите количество экзаменов');
read(n);
if n<=10 then begin
for i:=1 to n do begin
writeln('введите оценку за экзамен');
readln(a);
if a=5 then k5:=k5+1;
if a=2 then k2:=k2+1;
end;
writeln('количество пятерок ',k5);
writeln('количество двоек ',k2);
end;
end.
Қауіпсіздік техникасының ережелерін төмендегі пункттерге бөлуге болады:
1. Жалпы
2. ДК - де жұмыс істеу алдында
3. Жұмыс істеу кезінде
4. Авариялық жағдайларда
5. Жұмысты аяқтағанда
Жалпы қауіпсіздік талаптары:
1. Мұғалімнің рұқсатынсыз құрал - жабдықтарды орнынан қозғауға, сымдарға, розеткаларға, штепсельдің айырына, штекерге тиісуге тыйым салынады.
2. Мұғалімнің рұқсатынсыз сыныпқа кіруге және сыныптан шығуға болмайды.
3. Мұғалімнің рұқсатынсыз сыныпта жүруге болмайды.
4. ДК - де су киіммен және су қолмен жұмыс істеуге болмайды.
5. Корпусы мен сымдарының бүтіндігі бұзылған (ашық) ДК - де жұмыс істеуге тыйым салынады.
6. Үстелге, ДК - дің жанына сумка, портфель, кітап қоюға болмайды. Үстелде тек дәптер мен қалам ғана жатуы керек.
7. Пернетақтаның үстіне ештеңені қоюға болмайды.
8. Компьютер сыныбында жүгіруге, ойнауға, жолдастарыңның көңілін қажетсіз аударуға, бөгде жұмыстарды істеуге тыйым салынады.
