var x:string;
begin
x:='Турбина';
writeln(x);
x:= 'Резина';
writeln(x); // writeln выводит текст
// с переменной х.
//Можно убрать.
x:='Монитор';
writeln(x);
x:='Контракт';
writeln(x);
end.
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var a:=ArrRandom(10); println(a);
for var i:=0 to 9 do
if a[i] mod 2 =0 then print(a[i]);
end.
Тестовое решение:
[57,42,71,42,53,88,86,80,87,74]
42 42 88 86 80 74
Попробуй змейкой сначала вправо до конца потом вниз до конца и та по круговой и всё закрасишь понял?
Ответ:
Dim Massiv(9) as Integer ' Объявляем массив из 9 элементов
Dim Composition as Integer ' Результат произведения нечетных элементов массива
Dim index as Integer ' Индекс для доступа к элементам массива
' Заполняем массив случайными числами
For index = 0 to 9
Massiv(index) = Rnd() * 5
print Massiv(index) ' Вывод массива
Next
' Инициализируем переменную Composition
Composition = 1
For index = 0 to 9
If Massiv(index) Mod 2 <> 0 Then ' Если элемент не четный то выполнить произведение
Composition = Composition * Massiv(index)
End if
Next
print Composition ' Результат произведения
Var a:string;
begin
read(a);
a:='Современная техногенная цивилизация, помимо увеличения степени бытового комфорта, привела к стремительному ухудшению экологической ситуации в мире. Со временем испорченная цивилизацией экология может привести к катастрофическим последствиям. Рассмотрим кратко основные глобальные экологические проблемы.';
write(a);
end.<span />
