Program NoName;
Var i,n,sum: integer;
a:array[1..9999] of integer;
Begin
sum:=0;
Write ("Количество элементов массива = ");
Read (n);
For i:=1 to n do
Begin
Writeln(a[i]);
End;
Writeln ;
For i:=1 to n do
Begin
If a[i] < 20 then
a[i] := a[i] * 3;
sum:=sum + a[i];
Writeln(a[i]);
End;
Write (sum);
End.
<span>мини-сочинение (половина страницы или одна страница) на одну из тем :1-Какой способ создания текста-компьютерный или рукописный-вамнравится больше? 2-Одно из значений слова "редактор"-лицо,исправляющее рукопись.Объясните ,почему компьютерные программы для создания текстов назвали текстовыми Редакторами?</span><span>
</span>
Ответ:
Каприз - приказ
соринка - росинка
марка - карма, рамка
кукла - кулак
атлас - салат
лето - тело
кара - арка
нос - сон
тик - кит
кот - ток
масло - смола
Производные слова состоят из тех же букв, что и первоначальные, однако порядок этих букв у них другой
Var
x:integer;
y:real;
begin
readln(x);
if x < 0 then
begin
y:= 1/x*x;
end
else
y:=x/6;
writeln(y);
end.
по-моему в 1950 . . .. . .