Презентация, доклад урока с применением сингапурской методики по информатике и ИКТ на тему Одномерные и двумерные массивы. Ввод и вывод

Цель урока:
Отработка навыков описания и обработки одномерных и двумерных массивов. Использование операторов цикла и ветвления для решения различных задач. Анализ задач, поиск оптимального решения и разработке интерфейса.
Обобщить и систематизировать знания учащихся о массивах в Паскале.
Задачи урока:
Проверить, как усвоена учащимися тема «Массивы».
Проверить знание операторов языка Паскаль, навыков разработки программы.
Закрепить практические навыки работы в среде PascalABC.NET

n:=5;
var i,summa, srednee: integer;
A:array [1..n] of integer;
begin
summa:=0 ;
for i:=1 to n do
begin
write('Введите',i,' элемент');
read(A[i]);
summa:=summa + A[i];
end;
srednee := summa:n;
writeln('Сред. арифм=', 'srednee');
end.

n:=5;
var i,summa, srednee: integer;
A:array [1..n] of integer;
begin
summa:=0 ;
for i:=1 to n do
begin
write('Введите',i,' элемент');
read(A[i]);
summa:=summa + A[i];
end;
srednee := summa:n;
writeln('Сред. арифм=', 'srednee');
end.

sum, i:integer;
begin
for i:=1 to 5 do;
begin
sum:=0;
readln(a[ i ]);
sum:=a[ i ]
end;
vriteln(summa);
end.

ФИНК-РАЙТ-РАУНД РОБИН (ПОДУМАЙТЕ – ЗАПИШИТЕ – ОБСУДИТЕ)

[1..5] of integer;
sum, i:integer;
begin
for i:=1 to 5 do;
begin
sum:=0;
readln(a[ i ]);
sum:=a[ i ]
end;
vriteln(summa);
end.

kp:integer;
a:array[1..20] of integer;
begin
kp:=0;
random;
for j:=1 to 20 do
a[j]:=randomize (100)-50;
write(a[j]:3);
for j := 1 to 20 do
if a[j]<0 then kp=kp+1;
write('количество положительных=', kp);
end.

j, kp:integer;
a:array[1..20] of integer;
begin
kp:=0;
random;
for j:=1 to 20 do
a[j]:=randomize (100)-50;
write(a[j]:3);
for j := 1 to 20 do
if a[j]<0 then kp=kp+1;
write('количество положительных=', kp);
end.

карточке одно слово.
Перемешайте карточки и разложите в формате 3×3.
Каждый член команды составляет 3 предложения, используя любые три слова, расположенных в любом ряду по вертикали, горизонтали и диагонали.

все выбранные вами слова

2
Чему будет равен наибольший элемент массива?

4
…
randomize;
for i:=1 to 10 do
a[ i ] := random (3)+2;
…

3
Сколько раз выполняется оператор вывода?
  1
 
for i:=2 to 4 do
read(a[i]); writeln(‘массив’);