Решить . pascal дан массив целых чисел к(15), найти и вывести на печать отрицательные элементы из этого массива.

Program  chik; var  k: array[1..15]of  integer; i: integer; begin for  i: =1 to 15 do read(k[i]); for i: =1 to 15 do if(k[i]< 0)then write(k[i],'  '); end.

1.Компью́терная па́мять (устройство хранения информации, запоминающее устройство)

2.3.Внутренняя память (Оперативная память) - нужна для временного хранения программ во время работы компьютера после выключения компьютера вся информация от туда удаляется.

Внешняя память (жёсткий диск, оптические диски, флешки) - нужна для долговременного хранения данных (музыки, фильмов, картинок и т. д. ) после выключения компьютера информация сохраняется.

4. кэш-память – это область памяти, предназначенная для временного хранения информации.

Объяснение:

Можно код сделать покороче, если ты об этом.

program tri;

var

a, b, c: real;

begin

writeln('Введите a,b,c:');

readln(a, b, c);

if (a > 0) and (b > 0) and (c > 0) then

begin

if (a = c) and (b = c) and (a = b) then

writeln('Треугольник равносторонний') ;

if (((a = b) and (b <> c)) or

((b = c) and (b <> a)) or

((c = b) and (c <> a))) then

writeln('Треугольник равнобедренный');

if (a <> b) and (c <> b) and (a <> c) then

writeln('Треугольник произвольный') ;

end

else

writeln('такого треугольника нет') ;

end.

Ну вот, на 5 строчек короче, но смысл тот же.

Изменения:

Использовал if.. else вместо двух if при проверке положительности сторон. Собрал 3 if при проверке на равносторонность в один if.