Умножить на 2 элементы массива

@Andrei_M · Регистрация: 26.06.2012

Студворк — интернет-сервис помощи студентам

Задать одномерный массив, вывести его на экран затем умножить его элементы на два и вывести на экран

@Reveng · 06.07.2012, 16:04

Pascal

uses crt;
var
   A: array [1..1000] of integer;
   i, n : integer;
BEGIN
ClrScr;
Write('N = ');
Readln(n);
Writeln('Array: ');
for i := 1 to n do
 begin
   A[i] := random(30)-15;
   Write(A[i], ' ');
 end;
Writeln;
Writeln('Result: ');
for i := 1 to n do
 Write(2*A[i], ' ');
Readln;
END.

@CodeR · 06.07.2012, 16:07

Pascal

Var A:array[1..100] of integer;
    i,n:integer;
Begin
    Repeat 
     write('Введите размерность: ');readln(n);
    Until n in [1..100];
    writeln('Исходный массив');
    For i:=1 to n do
     Begin
      A[i]:=random(10);
      write(A[i]:3);
     End;
    writeln;
    writeln('Преобразованный массив');
    For i:=1 to n do
     Begin
      A[i]:=A[i]*2;
      write(A[i]:3);
     End;
End.

Добавлено через 1 минуту

Сообщение от Reveng

Write(2*A[i], ' ');

ты ведь таким образом не меняешь массив а просто на выводе умножаешь а в задание нужно именно умножить элементы а затем вывести преобразованный

Умножить на 2 элементы массива

Решение

Решение

@Andrei_M 0 / 0 / 0 Регистрация: 26.06.2012 Сообщений: 18
		1
	Умножить на 2 элементы массива 06.07.2012, 16:00. Показов 6472. Ответов 2 Метки нет (Все метки) Задать одномерный массив, вывести его на экран затем умножить его элементы на два и вывести на экран 0

	06.07.2012, 16:07

Опции темы