урок 14 ноября

Повторить

1. Опишите массив М из 5 вещественных элементов
2. Опишите массив D из 8 целых элементов
3 Вывод положительных чисел
4. .Ввод элементов массива с клавиатуры
5. Ввод элементов массива с клавиатуры с комментарием
6. Вывод элеммассива А, увеличенных на 11
7. Вывод элементов массива через запятую
8. .Вывод эл/ массива с новой строки
9. .Проверка числа на четность
10 Проверка числа на нечетность и кратность 4

Подготовка к практической работе

1.   Проверка чисел на положительность
2. Подсчет количества положительных чисел
3.  Вывод элем. массива А, увеличенных на 9
4. Присвоение каждому элементу 3
5. Проверка числа не четность
6. Проверка числа не четность
7. Проверка числа на кратность 6
8. Ввод элементов массива с клавиатуры с комментарием
9. замена всех чисел кратных 22 на 5
10. подсчитать сумму четных чисел

помощь

дз урок 14 ноября

 все, кто не делал дз в октябре, сделайте, пожалуйста. Будет опрос.

дз ссылка

Урок 31 октября 10б я объяснила, 10 а посмотрите сами.

Максимальный и минимальный элементы в массиве

 ссылка

var a: array[1..20] of integer;
n, i,min, max, raz, pr: integer;
begin
    write('Количество n=');
    readln(n);
    writeln (' элементы массива');
    for  i:= 1 to n do
      read(a[i]);
     min:= a[1];
     for  i:= 2 to n do
    if a[i] < min then
      min:= a[i];
       writeln ('Минимум= ', min,'индекс= ',i);
       max:= a[1];
     for  i:= 2 to n do
    if a[i] > max then
      max:= a[i];
       writeln ('Максимум= ', max);
    end.

Домашняя работа на 31 октября

 разобрать таблицу с урока

Проверка чисел на положительность

for i:=1 to 5 do if A[i]>0 then writeln( A[i]);

 Вывод элеммассива А, увеличенных на 7

for i:=2 to 7 do  A[i]:= A[i]+7; 

Присвоение каждому элементк 7

for i:=2 to 7 do  A[i]:= 7;  

Проверка числа не четность

For i:=1 to 5 do   if a[i] mod 2 = 0 then    WriteLn('Число четное')
                                                             else  WriteLn('Число нечетное') ;

урок 24 октября

 var a: array[1..5] of integer;  i: integer;
    s: real;
begin

For i:=1 to 5 do read (a[i]);

For i:=1 to 5 do begin
  if a[i] mod 2 = 0 then

    WriteLn('Число четное')
  else
  WriteLn('Число нечетное')
   end;

учебник 2,6 стр42

Основные команды РАЗОБРАТЬ

1. Опишите массив М из семи вещественных элементов	VarA : array [1..7] of real;
2. Опишите массив М из 6 целых элементов	Var A array [1. 6] of integer;
Вывод положительных чисел	for i:=1 to 5 do if A[i]>0 then writeln( A[i]);
4. .Ввод элементов массива с клавиатуры	for i := 1 to 5 do read(A[i]) ;
5. Ввод элементов массива с клавиатуры с комментарием	for i:=1 to 7 do begin write(‘введите рост ’, i, ‘ученика’); readln( A [i]);  end;
6. Вывод элеммассива А, увеличенных на 7	for i:=2 to 7 do  begin A[i]:= A[i]+7; writeln( A[i]); end;
7. Вывод элементов массива через запятую	for i:=1 to 4 do write( A[i], ‘, ’);
8. .Вывод эл/ массива с новой строки	for i:=1 to 4 do writeln( A[i]);
9. .Вывод элементов массива А, возведенных в квадрат	for i:=1 to 6 do  begin A[i] := sqr(A[i]); writeln( A[i]); end;

Домашняя работа на 24 октября

1- Заполнить таблицу и выучить 

• №13 Заполните структуру программы  элем. массива на  преобразование
  Описание массива M из 7 элементов вещественного типа
  Ввод элементов массива
  Обработка элементов массива
  Вывод  элементов массива через пробел

2- Решить задачу

 Дан массив, содержащий положительные и отрицательные числа. Заменить все элементы массива на противоположные по знаку.

Например, задан массив [1, -5, 0, 3, -4]. После преобразования должно получиться [-1, 5, 0, -3, 4].

Чтобы поменять элемент на противоположный, достаточно умножить его на -1.

Основные команды РАЗОБРАТЬ

1. Опишите массив М из семи вещественных элементов	VarA : array [1..7] of real;
2. Опишите массив М из 6 целых элементов	Var A array [1. 6] of integer;
Вывод положительных чисел	for i:=1 to 5 do if A[i]>0 then writeln( A[i]);
4. .Ввод элементов массива с клавиатуры	for i := 1 to 5 do read(A[i]) ;
5. Ввод элементов массива с клавиатуры с комментарием	for i:=1 to 7 do begin write(‘введите рост ’, i, ‘ученика’); readln( A [i]);  end;
6. Вывод элеммассива А, увеличенных на 7	for i:=2 to 7 do  begin A[i]:= A[i]+7; writeln( A[i]); end;
7. Вывод элементов массива через запятую	for i:=1 to 4 do write( A[i], ‘, ’);
8. .Вывод эл/ массива с новой строки	for i:=1 to 4 do writeln( A[i]);
9. .Вывод элементов массива А, возведенных в квадрат	for i:=1 to 6 do  begin A[i] := sqr(A[i]); writeln( A[i]); end;

Урок 17 октября параграф 5. Поиск элементов с заданными свойствами

 

• №13 Заполните структуру программы  элем. массива на  преобразование
  Описание массива M из 7 элементов вещественного типа
  Ввод элементов массива
  Обработка элементов массива
  Вывод  элементов массива через пробел

Преобразование элементов массива в соответствии с

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

(Проверка элемента на отрицательность, положительность)
№2  Дан массив из 5 элементов, составить программу, которая заменят отрицательные числа на 5, а положительные на 10.

• Например	значение	-8	9	-4	14	78
  	индекс	1	2	3	4	5
  Результат:	значение	5	10	5	10	10
  	индекс	1	2	3	4	5

Program z33;
Var a: array[1..5] of integer;  i: integer;        s: real;
Begin
writeln ('заполните массив числами');
For i:=1 to 5 do readln (a[i]);
For i:=1 to 5 do 
if A[i]<0 
then a[i] :=5 
else a[i] :=10;

For i:=1 to 5 do write(a[i],  ';'); { вывод всех чисел через ;}

End.
 
№3  Дан массив из 5 элементов, составить программу, которая заменят положительные на 100, а отрицательные числа на -1.
№4 Дан массив из 5 элементов, составить программу, которая заменят отрицательные числа на 0,  положительные не меняются.