var
i: integer;
a: array [1..15] of integer;
begin
write('Исходный массив: ');
for i:= 1 to 15 do //Формируем и распечатываем массив
begin
a[i]:= random(8);
write(a[i],' ');
end;
writeln; //Перевод на новую строку
write('Преобразованный массив: ');
for i:= 1 to 15 do
begin
if a[i] mod 2 = 0 then a[i]:= a[i] + 1 {Если элемент массива с индексом i четный, то прибавляем к нему 1, иначе умножаем на 2}
else a[i]:= a[i] * 2;
write(a[i], ' ');
end;
writeln; {Перевод на новую строку, чтобы при повторном запуске программы сформированный массив печатался на новой строке}
end.
Отметь решение, как лучшее
ответ:
номер 1-интернет - всемирная паутина, которая хранит в себе тонны информации. он заменяет нам любой источник информации и облегчает понимание.
газеты/журналы - письменные, или же стандартные способы получения информации на бумаге.
телевидение - самый удобный источник информации. содержит в себе и картинку, и звук, и приятную визуализацию.
постеры/афиши - бумажки расклеенные по городу или же огромные постеры размещенные на зданиях. привлекает внимание, тем самым увеличивает число интересующихся.
радио - звуковая информация, уже перестает быть актуальной. в основном, радио - это не новости, а что-то более развлекательное.
номер 2-к примеру, кто-то описывает картину на бумаге (повествованием), тем самым переводит графическую информацию в текстовую. рассказывает вслух - уже в звуковую. и т. д.
номер 3-написание дипломного проекта из своего же курсового, время прошло законы изменились и теперь за одни и теже административные проступки другие наказания, но дабы не писать с нуля все это лучше обработать свой же курсовик соответственно изменив его содержание
номер 4-молекула днк
оптические носители
египитские папирусы
бумага
var a,b,y:real;
begin
readln(a,b);
if a>b then y:=a/b else y:=a*b;
writeln(y);
end.