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

Pascal abc. дан одномерный массив. необходимо удалить из него отрицательные эл-ты. размер массива задаётся в начале программы.

👇
Ответ:
ilonazelen
ilonazelen
11.05.2020
Program mass;

uses
  crt;

var
  a: array [1..10] of integer;
  i: integer;

begin
  randomize;
  writeln('Исходдный массив: ');
  for i := 1 to 10 do
  begin
    a[i] := random(20) - 10;
    write(' ', a[i], ' ');
  end;
  Writeln;
  writeln('После замены отрицательных чисел на 0:');
  for i := 1 to 10 do
  begin
    if a[i] < 0 then a[i] := 0;
    write(' ', a[i], ' ');
  end;
  writeln;
end.
ща переделаю не увидел что ті изменила задание
4,4(54 оценок)
Открыть все ответы
Ответ:
hopelless2124
hopelless2124
11.05.2020

1)Это специальная пометка в документе,которая приводит читателя к другой странице

2)Первый вид — это анкорные гиперссылки

Второй вид гиперссылок в данной классификации это ссылки со смешанным или разбавленным анкором

Третий вид гиперссылок это безанкорные ссылки

3)Гиперссылка является основным инструментом, с которого осуществляется навигация по сайту и по сети Интернет в целом

4)Самый быстрый создать простейшую гиперссылку в документе Office — нажать клавишу ВВОД или ПРОБЕЛ после ввода адреса веб-страницы. Office автоматически преобразует адрес в ссылку.

5)Gtrl+V

Объяснение:

4,5(9 оценок)
Ответ:
Var    matrix: array[1..5,1..5] of integer;    i, j: integer; sg:=0; sp:=0;begin    writeln ('Введите 25 чисел: ');     for i := 1 to 5 do        for j := 1 to 5 do            read (matrix[i,j]);     for i := 1 to 5 do begin        for j := 1 to 5 do            write (matrix[i,j], ' ');        writeln    end;  for i:=1 to 5 do begin   for j:= 1 to 5 do   if j=i then sg:=sg+matrix[i,j]; end; for i:=5 downto 1 do    begin    for j:=1to 5 do    if (i+j)=6 then sp:=sp+matrix[i,j]    end;    sp:=sp-matrix[3,3];1 writeln(sg,' ',sp);readlnend
4,8(100 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ