Массив, Паскаль

[edini4ka]

Массив, Паскаль

1) Дан массив из 10 чисел.Получить из него 2 массива 1-ый нечетные элементы возвести в квадрат, 2 - ой элементы, стоящие на четных местах увеличить на минимальный элемент.
2) Дан массив,состоящий из n натуральных чисел.Образовать новый массив,
элементами которого будут элементы исходного, оканчивающиеся на цифру k.
3)Определить произведение элементов массива N, кратных трем.

 

[Ksushen'ka]

ужаааас

 

[Vladimir_S]

ужаааас

Где? Вы про задачки? Так они уровня подготовительной ясельной группы. Ни малейшей сложности не представляют.
Да, а госпоже Единичке мысленно вручаю удостоверение клуба ТЯП (Тайна Языка Программирования), поскольку ЯП не указан.

 

[edini4ka]

Яп указан в название Массив, Паскаль! Собственно задачи в паскале

 

[Vladimir_S]

Яп указан в название Массив, Паскаль! Собственно задачи в паскале

А, да - тогда виноват!
Ладно, так и быть - сделаю.

 

[Vladimir_S]

Вот:

VAR
 A,A1,A2,B:Array[1..100] of Integer;
 i,N,NB,Min,k:Integer;
 P:LongInt;
BEGIN
 Writeln('Task N1:');
 Write('N= ');
 Readln(N);
 Min:=32000;
 Randomize;
 For i:=1 to N do
  begin
   A[i]:=Random(20);
   If A[i]<Min then Min:=A[i];
   Write(A[i]:4);
  end;
 Writeln;
 Writeln;
 For i:=1 to N do
  begin
   If (A[i] mod 2)<>0 then A1[i]:=A[i]*A[i] else A1[i]:=A[i];
   Write(A1[i]:4);
  end;
 Writeln;
 Writeln;
 For i:=1 to N do
  begin
   If (i mod 2)=0 then A2[i]:=A[i]+Min else A2[i]:=A[i];
   Write(A2[i]:4);
  end;
 Writeln;
 Writeln;
 Writeln('Task N2:');
 Write('k= ');
 Readln(k);
 NB:=0;
 For i:=1 to N do
  If (A[i] mod 10)=k then
   begin
    Inc(NB);
    B[NB]:=A[i];
    Write(A[i]:4);
   end;
 Writeln;
 Writeln;
 Writeln('Task N3:');
 P:=1;
 For i:=1 to N do
  If (A[i] mod 3)=0 then  P:=P*A[i];
 Writeln('P= ',P);
 Readln
END.

Ничего, что "в одном флаконе"?

 

[edini4ka]

спасибо