Вмассиве все положительные элементы увеличить в 2 раза, а все отрицательные заменить на 7. вывести на экран исходный и преобразованный массивы. , нужно т.т
begin Randomize; Writeln('Элементы массива'); for i := 1 to n do begin a[i] := Random(61) - 30; Write(a[i]:4); if a[i]>0 then a[i]:=2*a[i] else if a[i]<0 then a[i]:=7 end; Writeln; Writeln('После преобразования'); for i := 1 to n do Write(a[i]:4); Writeln end.
№1. Информация – это сведения об окружающем мире, которые повышают уровень осведомленности человека. Информатика - наука о методах накопления, обработки и передачи информации Информационные технологии - процесс, использующий совокупность средств и методов сбора, обработки и передачи данных (первичной информации) для получения информации нового качества о состоянии объекта, процесса или явления (информационного продукта). Объект - любая часть окружающей дейст-ти №2. газета - предмет, радуга - явление, прогулка - процесс, стадион - предмет,чтение - процесс,мираж - явление №3. а) пенал б) ярлыки в) диски г) растения д) уравнения е) страны ж) алгоритм №4 а) страны мира б) страны западного полушария в) страны северной америки г) самые длинные реки д) реки России е) реки Европы ж) уст-ва ввода, вывода з) уст-ва ввода и) растения к) плодовые растения
Var a: string; i: integer; begin readln(a); for i := 1 to length(a) do if (a[i] in ['0'..'9']) then write(a[i]); end.
2) Тут лучше: на входе строка, а берётся часть между 1 и 2 пробелами, ответ уже есть под задачей х) var a, b: string; i: integer; w: boolean; begin readln(a); for i := 1 to length(a) do begin if ((a[i] = ' ')) then if (length(b) = 0) then w := true else w:=false; if (w) then b := b + a[i]; end; writeln(b); end.
3) var s: string; i: integer; begin readln(s); for i := 1 to length(s) do if s[i] in ['A', 'E', 'I', 'O', 'Y', 'a', 'e', 'i', 'o', 'y'] then write(s[i]); end.
n = 15;
var
a: array[1..n] of integer;
i: integer;
begin
Randomize;
Writeln('Элементы массива');
for i := 1 to n do
begin
a[i] := Random(61) - 30;
Write(a[i]:4);
if a[i]>0 then a[i]:=2*a[i]
else
if a[i]<0 then a[i]:=7
end;
Writeln;
Writeln('После преобразования');
for i := 1 to n do Write(a[i]:4);
Writeln
end.
Тестовое решение:
Элементы массива
-20 15 16 20 0 16 -15 -1 -2 21 -8 -10 4 -24 1
После преобразования
7 30 32 40 0 32 7 7 7 42 7 7 8 7 2