Program dlksjijh; var a: array [1..40] of integer; i: integer; begin writeln('исходные значения: ' ); for i: =1 to 40 do begin a[i]: =random(21); write(a[i], ' '); end; writeln; writeln('преобразованный массив: ') for i: = 1 to 40 do begin if a[i] mod 2 = 0 then a[i]: =round(a[i]/2) else a[i]: =a[i]*3; write(a[i], '' ); end; end. где ошибка? , не знаю что делать?
Ответы
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>Твой title</title>
<style type="text/css">
TABLE {
background: maroon; /* Цвет фона таблицы */
color: white; /* Цвет текста */
}
TD {
background: navy; /* Цвет фона ячеек */
}
</style>
</head>
<body>
<h1>Заголовок</h1>
<p>Первый абзац.</p>
<p>Второй абзац.</p>
<Img src="https://million-wallpapers.ru/wallpapers/1/55/506744950768048/biryuzovyj-gornoe-ozero.jpg" Width="200" Height="150">;
<ul>
<p><a href="https://superresheba.by/">resheba</a></p>
<li>1</li>
<li>2</li>
<li>3</li>
<li>4</li>
</ul>
<table>
<table cellpadding="4" cellspacing="1">
<tr><th>Заголовок 1</th><th>Заголовок 2</th></tr>
<tr><td>Ячейка 3</td><td>Ячейка 4</td></tr>
</table>
</body>
</html>
Объяснение:
P.S css добавил в этом же коде (не в отдельном файле).
И картинка по ссылке. Ее тоже можно было бы в отдельный файл записать(по необходимости).
a = map(int, input("Массив: ").split()) #Вводим элементы массива через пробел. "split()" отделяет то, что мы ввели для "map()". "map()" преобразует введённые числа в числовой тип данных.
b = [] #Задаем новый массив
for i in list(a): #Цикл, где "list()" преобразует числа переменной "a" в массив введённых чисел.
if i%2!=0: #Если элемент массива перменной "a", не делится на 2, то мы добавляем этот элемент к массиву переменной "b".
b+=[str(i)]
print("Нечётные элементы: {}".format(", ".join(b))) #Выводим новый массив, применяя расстановку запятых "format(", ".join(b))"
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Двоичный (бинарный) поиск С++. Код плс
задача по информатике:Беларусь 8 класс
Составить алгоритм и программу для нахождения суммы ряда: s=x^1+x^3+x^5+x^7++x^13
Выберите правильный ответ
перевести числа 31, 91, 126, 172 из 10 сс в 8 сс
var
A: array[1..40] of integer;
i: integer;
begin
randomize;
writeln('исходные данные:');
for i := 1 to 40 do
begin
A[i] := Random(21);
write(A[i], ' ');
end;
writeln;
writeln('преобрезованный массив:');
for i := 1 to 40 do
begin
if A[i] mod 2 = 0 then
A[i] := Round(A[i]/2)
else
A[i] := A[i] * 3;
write(A[i], ' ');
end;
end.
Имена математических операций - с прописной буквы, и, поскольку есть Random(), то самой первой строкой программы должна быть команда randomize, то есть активация генератора случайных чисел.
У меня работает.