Меню сайта

Задача №58

Напечататьчисло элементов в массиве Т.

uses crt-

vari,m,k,num:integer-

x:array[1..10000]of integer-

t:array[1..10000]of integer-

begin-

clrscr-

writeln(‘Введите размер массива x(m)’)-

readln(m)-

FOR i := 1 TO m do

begin

clrscr-

writeln(‘Введите элементы массива x(m)’)-

readln(x[i])-

clrscr-

end-

writeln(‘Введенный массив’)-

FOR i := 1 TO m do

begin

writeln (x[i])-

IF x[i] &gt-= 0THEN

-begin

-num := num + 1- k := k + 1- t[k] := x[i]-

end-

end-

writeln(‘Сформированный массив’)-

FOR i := 1 TO k do

begin

writeln (t[i])-

end-

writeln(‘Количество элементов в сформированном массиве’, num)-

end.

Категория: Массивы | Дата: 08.12.12

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