Описание массива А 5целых элементов |
Var a: array[1..5] of integer; |
Ввод элементов массива
|
For i:=1 to 5 do
readln (a[i]); |
Увеличение элементов массива
на 3 |
For i:=1 to 5 do a[i]:=a[i]+3; |
Ввод элементов массива через random(101); |
for i:=1 to 5 do a[i]:=random(101);
|
Вывод элементов
массива через пробел
|
For i:=1 to 5 do
write(a[i] , ‘ ‘); |
Вычислить
сумму элементов массива |
for i:=1 to 5 do S:=
S +a[i]; |
Вычислить
сумму положительных элементов массива |
for i:=1 to 5 do if
A[i]>0 then S:= S +a[i]; |
Вычислить
произведение положительных элементов
массива |
p:=1;for i:=1 to 5
do if A[i]>0 then p:= p *a[i]; |
Вычислить
произведение четных элементов массива |
p:=1;for i:=1 to 5 do
if A[i] mod 2=0 then p:= p *a[i]; |
Вычислить
количество элементов массива равных 7 |
for i:=1 to 5 do if
A[i]=7 then k:= k +1; |
В тетрадь написать домашняя работа, число и выполнить задания
№1 Описать массив F, состоящий из 7 элементов вещественного типа
№2 Напишите Ввод 7 элементов массива S
№3 Напишите Ввод 5 элементов массива R через random
переписать в тетрадь
|
Структура программы элементов
массива на преобразование |
||
1 |
Описание массива А
5 целых элементов |
Var a: array[1..5] of integer; |
|
2 |
Ввод элементов массива цикл |
For i:=1 to 5 do readln (a[i]); |
|
3 |
Обработка
элементов массива цикл |
For i:=1 to 5 do <команды> |
|
4 |
Вывод элементов массива цикл |
For i:=1 to 5 do write(a[i] , ‘;‘); |
|
| |||
|
Правильная запись A[1]=13
Заполните по примеру, A[2]= , A[ ]=10, A 4, A[5] -5, [7] =
№2 Чему равен элемент, имеющий индекс 2 и какой индекс имеет значение 4
4 | -2 | 4 | -7 | 3 | 2 |
1 | 2 | 3 | 4 | 5 | 6 |
№3 Чему равен элемент, имеющий индекс 5 и какой индекс имеет значение 5
5 | -55 | 4 | -2 | 0 |
1 | 2 | 3 | 4 | 5 |
на 27-30 сентября
Комментариев нет:
Отправить комментарий