Информационный объем какого порядка имеют: гибкие диски, винчестеры, cd-rom, dvd-rom? )

Гибкие диски - 1,4 мбайт; cd-rom - 700 мбайт; dvd-rom - 4.7 гбайт (8.5 гбайт; 17 гбайт); винчестер - от 50 гбайт до 4 тбайт;

program massiv;

uses crt;

const n=10 {размер массива} 

var i,k: integer;

        a: array[1..n] of integer;

begin

      clrscr;

      write('введите элементы массива: ' );

      k: =1  

      for i: =1 to n do

            begin

                  readln (a[i]);

                  if (a[i]< 0) and (a[i] mod 7)=0 then k: =k*a[i];

            end;

writeln;    

write('исходный массив: ') 

 

for i: =1 to n do   write(a[i]: 3);        

 

  writeln;

writeln('произведение отрицательных элементов кратных 7: ',k);

 

  readkey;

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

у вас дано несколько чисел введённых с клавиаатуры или генерацией(random)вы проверяете 1)трёхзначность (a> 99) and (a< 1000)

                                                          2)оканчивается ли трёхзначное число тройкой (a mod 10=3)

if (a> 99) and (a< 1000) and (a mod 10=3)

 

естественно проверка делается в цикле.

 

нужно было указать в условии как вводятся числа (a), сколько их

или числа вводятся в массив