Перепишите программу на Паскале, исправив ошибки:
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.
Светило науки — 216 ответов — 2068 раз оказано помощи
Program massiv;
Var a:array[-10..10] of integer;
i:integer;
Begin
For i:=1 to 20 Do
begin
Read(a[i]);
a[i]:= round(a[i]/10);
Write(a[i]);
end;
End.
Светило науки — 32 ответа — 409 раз оказано помощи
Program massiv;
Var a:array[1..20] of real;
i:byte;
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]:4)
End.
Все категории
- Фотография и видеосъемка
- Знания
- Другое
- Гороскопы, магия, гадания
- Общество и политика
- Образование
- Путешествия и туризм
- Искусство и культура
- Города и страны
- Строительство и ремонт
- Работа и карьера
- Спорт
- Стиль и красота
- Юридическая консультация
- Компьютеры и интернет
- Товары и услуги
- Темы для взрослых
- Семья и дом
- Животные и растения
- Еда и кулинария
- Здоровье и медицина
- Авто и мото
- Бизнес и финансы
- Философия, непознанное
- Досуг и развлечения
- Знакомства, любовь, отношения
- Наука и техника
6
Перепишите программу на Паскале, исправив ошибки:
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.
2 ответа:
0
0
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.
0
0
Массив с другими скобкамиArray[-10..10]
Читайте также
Var
s: string;
count, i: Integer; begin
write(‘Введите строку: ‘);
readln(s);
count := length(s);
writeln(‘Инверсия строки: ‘);
for i := count downto 1 do
write(s[i]);
<span>end.</span>
15₁₀=1111₂; 12₈ = 1010₂
Двоичные числа должны удовлетворять условию
1010<c<1111
Это числа 1011, 1100, 1101, 1110
1.
var
a:array [1..100000] of integer;
n, k, i:integer;
begin
read (n);
for i:=1 to n do
read (a[i]);
for i:=1 to n do
writeln (a[i]);
readln (k);
for i:=1 to n do
if k>a[i] then write (a[i]);
end.
<em>// PascalABC.NET 3.3, сборка 1561 от 02.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger(‘n=’),-50,50); a.Println;
Writeln(‘Положительных элементов- ‘,a.Where(x->x>0).Count)
end.
<u>Пример</u>
n= 13
3 21 -5 46 16 -24 -13 1 -15 41 0 25 48
Положительных элементов- 8
100101101 вот это ответ на 301
0 голосов
180 просмотров
Перепишите программу на Паскале, исправив ошибки:
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.
- перепишите
- программу
- паскале
- исправив
- ошибки
- program
- 5 — 9 классы
- информатика
Информатика
Rud111_zn
(85 баллов)
11 Март, 18
|
180 просмотров
Дано ответов: 2
0 голосов
Правильный ответ
Program massiv;
Var a:array[-10..10] of integer;
i:integer;
Begin
For i:=1 to 20 Do
begin
Read(a[i]);
a[i]:= round(a[i]/10);
Write(a[i]);
end;
End.
PsyhoAssasin_zn
Одаренный
(2.4k баллов)
11 Март, 18
0 голосов
Program massiv;
Var a:array[1..20] of real;
i:byte;
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]:4)
End.
kkazhura_zn
Начинающий
(388 баллов)
11 Март, 18
Похожие задачи
- Продолжите предложение: под признаками объекта мы будем понимать его….
- Составите кроссворд в котором используются слова информация сообщение процесс телевизор…
- Что такое системный блок???
- Как можно получить равенство если можно переложить с одного места на лругое только одну…
- В качестве цветопередачи стоит 32 бита…сколько это цветов?
Здравствуйте! На сайте Otvet-Master.ru собраны ответы и решения на все виды школьных задач и университетских заданий. Воспользуйтесь поиском решений на сайте или задайте свой вопрос онлайн и абсолютно бесплатно.
Перепишите программу на Паскале, исправив ошибки:
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.
Информатика
(85 баллов)
10 Март, 18
Дан 1 ответ
PsyhoAssasin_zn
Одаренный
(2.4k баллов)
10 Март, 18
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]:=round(a[i]/10);
For i:=1 to 20 Do Write(a[i]);
end.
И вообще можно написать так
Program massiv;
Var a:array[-10..10] of integer;
Begin
For i:=1 to 20 Do
begin
Read(a[i]);
a[i]:=round(a[i]/10);
Write(a[i]);
end;
end.
0 голосов
Перепишите программу на Паскале, исправив ошибки:
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.
спросил
11 Март, 18
от
Rud111_zn
(85 баллов)
в категории Информатика
2 Ответы
0 голосов
ответил
11 Март, 18
от
PsyhoAssasin_zn
Одаренный
(2.4k баллов)
Лучший ответ
Program massiv;
Var a:array[-10..10] of integer;
i:integer;
Begin
For i:=1 to 20 Do
begin
Read(a[i]);
a[i]:= round(a[i]/10);
Write(a[i]);
end;
End.
0 голосов
ответил
11 Март, 18
от
kkazhura_zn
Начинающий
(388 баллов)
Program massiv;
Var a:array[1..20] of real;
i:byte;
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]:4)
End.