Перепишите программу на Паскале, исправив ошибки: Program massiv; Var a:array(-10..10) of integer; Begin For i:=1 to 20
5-9 класс
|
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 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.
Другие вопросы из категории
информационный объем сообщения в этой кодировке:
Имеются данные о количестве полных лет трех призеров спартакиады. Напишите программу, выбирающую и выводящую возраст самого младшего призера.
Читайте также
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. Определить,что распечатает следующая программа:
var a: array[1..5,1..5]of integer,i,j; integer;
begin
for i:=1 to 5 do begin
for j:=1 to 5 do begin
if i=5-j+1 then a[i,j]:=0
else a [i,j]:=0;
write(a[i,j]:2);
end;
writeln;
end; end.
3. Дан линейный массив a [l..n], содержащий целые числа. Вычислить сумму чисел делящихся одновременно на 5 и на 3 и распечатать номера таких чисел
4.Дан линейный массив a [l..n], содержащий целые числа. Преобразовать элементы массива по следующему правилу : если элемент положительный,то заменить его на 1, а если отрицательный - возвести в квадрат
{Программа заполняет массив Rand случайными числами в диапазоне от 0 до 50,
вводит число Х, и вычисляет, сколько раз Х входит в массив Rand}
Var Rand: array[1..20] of integer;
I, X, NumberX : integer,
Begin
{Установка датчика случайных чисел}
Randomize;
{Заполнение массива случайными числами и вывод их на экран}
Writeln(‘Массив случайных чисел:’)
For I:=1 to 10 do
begin
Rand[I]:=random(50); Write(Rand[I]:4)
End;
Writeln;
{Ввод Х}
Write(‘Введите Х:’)); Readln(X);
{Подсчет числа вхождений Х в массив}
NumberX:=0;
For I:=1 to 10 do
If Rand(I)=X then NumberX:=NumberX+1;
{Анализ и вывод результата}
If NumberX=0
Thenwriteln(‘В массиве нет числа’,X)
Else writeln(‘Число’,X,’в массиве присутствует’,NumberX,’раза’)
End.
Ввести две строки
Найти в них общие слова и удалить их(общие слова)
Вывести эти строки без общих слов
P.S:Знаки препинания внутри предложений не учитывать
К приложению я скинул пробный вариант программы, найдите в ней ошибки и перепишите.