br/> for i:1 to N do
Ai:Random(11);
for i:1 to N do
Write( ,Ai);
end.
2. ) Поиск в массиве максимального значения:
const
N10;
var
i:integer;
max:integer;
A:array 1. . N of integer;
begin
Randomize;
for i:1 to N do
Ai:Random(11);
for i:1 to N do
Write( ,Ai);
Writeln;
max:A1;
for i:2 to N do
if maxAi then
min:Ai;
Write(MIN ,min);
Writeln;
end.
IV. Закрепление изученного материала.
Задача 1.
Написать программу на языке Паскаль, в которой формировался одномерный массив произвольных целых чисел, вводимых с клавиатуры и выводился на экран максимальный по значению элемент массива, а также индекс (индексы) этого элемента.
Постановка домашнего задания.
Задача 1
Сформировать двухмерный массив целых чисел и вывести сумму его четных членов.
Задача 2
Сформировать двухмерный массив целых чисел и вывести сумму его членов делящихся на 3 без остатка.
Итог урока.
Подвести итог урока. Спросить, что было не понятно, что усвоили по новой теме. Выставить оценки за урок.
PAGE
PAGE 6
Страницы: << < 2 | 3 | 4