М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
mariadenisovna
mariadenisovna
30.07.2021 11:55 •  Информатика

Free pascal. задать массив, и из массива а в б переписать сначала все нули, потом отрицательные числа и потом все положительные. числа рандомные.

👇
Ответ:
bogdanpavlovi
bogdanpavlovi
30.07.2021
Var
 ar,ar2:array[1..10] of integer;
 i:integer;
begin
randomize;
 writeln('First array:');
  for i:=1 to 10 do
   begin;
    ar[i]:=random(10)-3;
    write(ar[i]:4);
    if ar[i]=0 then ar2[i]:=0;
   end;
 writeln;
 writeln('1-st Final array:');
  for i:=1 to 10 do
   begin;
    write(ar2[i]:4);
    if ar[i]<0 then ar2[i]:=ar[i];
   end;
 writeln;
 writeln('2-st Final array:');
  for i:=1 to 10 do
   begin;
    write(ar2[i]:4);
    if ar[i]>0 then ar2[i]:=ar[i];
   end;
 writeln;
 writeln('3-st Final array:');
  for i:=1 to 10 do
    write(ar2[i]:4);
end.    
4,4(46 оценок)
Открыть все ответы
Ответ:
Мур6954
Мур6954
30.07.2021
Program v1;
var a,b,c: real;
begin
readln (a,b,c);
If c > a+b then writeln ( 'Такого треугольника не существует');
If a > c+b then writeln ( 'Такого треугольника не существует');
If b> a+c then writeln ( 'Такого треугольника не существует');
If a=b and a=c  then writeln ('Этот треугольник равносторонний');
If a=b or a=c or b=c then writeln ('Этот треугольник равнобедренный');
If a = scrt ( b*b + c*c) then writeln ('Этот треугольник прямоугольный');
If b = scrt (a*a + c*c) then writeln ('Этот треугольник прямоугольный');
If c = scrt (a*a + b*b) then writeln ('Этот треугольник прямоугольный');
end. 
4,7(37 оценок)
Ответ:
ayratka2
ayratka2
30.07.2021

Объяснение:

1) Переведем размер изображения из сантиметров в дюймы. Исходя из того, что 1 дюйм = 2,54 см., получаем: 25 см = 25 / 2.54 = 9.84 дюйма.

2) Размер изображения в дюймах равен:  9.84  * 9.84  = 96, 83 дюйма.

3) Информационный объем графического файла определяется по формуле: l = K * i, где к - общее количество точек изображения, i - глубина цвета.

К = 300 * 300 * 96.83 = 8714700 (умножили разрешение сканера на размер изображения).

l = 8714700 * 3 байта = 26144100 байт.

Переведем в мегабайты: 26144100 байт = 26144100 / 1024 = 25531, 35 килобайт.

25531,35 килобайт = 25531,35 / 1024 = 24, 93 мегабайта.

ответ: 24, 93 мегабайта.

4,8(68 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ