1. Информатика
  2. Перепишите программу на паскале,

Перепишите программу на паскале, исправив ошибки: program massiv; var a: array(-10..10) of integer; begin for i: =1 to 20 do read(a[i]); for i: =1 to 20 do a[i]: =a[i]/10; for i: =1 to 20 do write(a[i]) end.

Женёк2006457 Женёк2006457    3   12.08.2019 15:20    1

Ответы
ярок228666 ярок228666  04.10.2020 13:45
A:array[-10..10] of real;i:integer;
Begin
 For i:=1 to 20 Do
   Read(a[i]);
 For i:=1 to 20 Do
  a[i]:=a[i]/10;
For i:=1 to 20 Do
  Write(a[i])
End.
ПОКАЗАТЬ ОТВЕТЫ
МВ080706 МВ080706  04.10.2020 13:45
Массив с другими скобкамиArray[-10..10]
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
КБД2006 КБД2006  16.09.2019 15:50
Как запустить программу microsoft excel? какие существуют заполнения и редактирования ячеек? как выделить смежные и несмежные диапазоны? как создать и импортировать списки? как производится...
tanyaaksenova1 tanyaaksenova1  16.09.2019 15:50
Написать программу на паскале которая печатает первую и последнюю цифру 4-х значного числа, сравнивает их и печатает какое из этих двух цифр больше...
nikolasosadchey nikolasosadchey  13.07.2019 13:47
Считается, что каждый символ кодируется двумя байтами, определите, чему равен информационный объем следующего высказывания жан-жака-руссо: тысячи путей ведут к заблуждению, к истине...
Andreysha363 Andreysha363  13.07.2019 13:37
Почему когда я запускаю gta samp у мне выскакивает ошибка bass.dll,файл есть, даже скачивал новый и заменял но...
joni200428 joni200428  13.07.2019 15:10
Запишите в развёрнутом виде числа: 23460 в 8 , 23460 в 16, 23460 в 5, 23460 в 2. 129 в 2 , 129 в 8 , 129 в 16, 129 в 5. 63 в 2, 63 в 8, 63 в 16, 63 в...
efanovakatena efanovakatena  13.07.2019 15:10
Решите . максимальная скорость передачи данных в локальной сети 100 мбит/с. сколько страниц текста можно передать за 1 сек, если 1 страница текста содержит 50 строк и на каждой строке...
alex2007serg alex2007serg  13.07.2019 15:10
Решите . максимальная скорость передачи данных в локальной сети 100 мбит/с. сколько страниц текста можно передать за 1 сек, если 1 страница текста содержит 50 строк и на каждой строке...
BuMo1 BuMo1  29.06.2019 20:30
Напишите программы, которые в зависимости от введенного числа либо вычисляют функцию, либо сообщение, что функция не определена. y = 6/(x-3)...
stas273 stas273  29.06.2019 20:30
Существуют тройки пифагора, то есть a^2+b^2=c^2 . есть лишь одна такая тройка, что a+b+c=1000 . написать программу, которая находит эту тройку(a=? , b=? , c=? ) и выводит ее....
nata960 nata960  29.06.2019 20:30
Информационное сообщение на языке, первоначально записанное в 8-битном коде кои-8, было перекодированно в 16-битную кодировку unicode. в результате его объём увеличился на 8000 битов....

Популярные вопросы