Меню сайта

Задача №14
Ввести -массив —Aиз 25 элементов.Cформировать массив —B -из элементов массива А, кратных трем.
Program -mas_14-
Var a,b:array[1..25] -of integer-
k,i:integer-
Begin
k:=0-
For i:=1 to 25 do
Begin
Writeln(‘введите элемент массива‘)- Readln(a[i])-
If a[i] mod 3=0 then
— — — — — — — — — — — — Begin
— — — — — — — — — — — — -k:=k+1-
— — — — — — — — — — — — b[k]:=a[i]-
— — — — — — — — — — — — end-
End-
For i:=1 to k -do Write(b[i]:4)-
Readln-
End.
Категория: Массивы | Дата: 22.12.12

Меню раздела
Блок