У меня получается ПРТИПЙ. Может опечатка какая-нибудь?
const
inf = 32767;
var
a, min : integer;
begin
min := inf;
while not eoln do
begin
read (a);
if (a < min) and (a mod 3 = 0) then min := a;
end;
if min < inf then writeln (min)
else writeln ('Нет чисел, кратных 3-ем');
end.
Параметр объекта<span> - признак, характеризующий свойства объекта.
Например:размер, цвет, вкус и т.д.</span>
Program qq;
uses crt;
var A:array [1..20] of integer; i: integer;
begin
for i:=1 to 20 do
readln (a[i]); //ввод массива. Не указали откуда дан массив, так что введем его через enter
for i:=1 to 20 do
if a[i]<10 then
a[i]:=0; //сравним каждый элемент массива с 10. если меньше 10, то заменим на ноль
for i:=1 to 20 do
write (a[i], ' '); //Вывод массива на экран
<span>end.</span>
Можливо МЕДІЙНИХ, а не НЕДІЙНИХ
Якщо медійних то
Медіа — це канали й інструменти передачі та збереження інформації або даних.
Мас-медіа (медіа) — засоби одночасної передачі інформації групі людей, тобто канали масової інформації (радіо, телебачення, преса, кіно, фотографія, відео, мультимедійні комп’ютерні системи, Інтернет тощо); технічні засоби створення, запису, копіювання, тиражування, зберігання, поширення, сприйняття інформації та обміну її між автором медіатексту й масовою аудиторією. Мас-медіа в ширшому користуванні означають єдине середовище, яке використовують, щоб передавати будь-які дані в будь-яких цілях.