Массивы. Решите плиз? Аааааааааа

+ 0 -

Loluhka55

12 февр. 2014 г., 9:11:16 (10 лет назад)

Pascal:
var a:array [1..8] of integer;
      i:integer;
begin
  randomize;
  for i:=1 to 8 do
    begin
      a[i]:=random(11)+10;
      write (a[i]:3);
      if a[i]<15 then a[I]:=a[i]*2;
      writeln (a[i]:4);
    end;
end.

C++:
#include <iostream>
#include <cstdlib>
#include <ctime>
#include <iomanip>
using namespace std;

int main()
{
  int a[8];
  srand (time(NULL));
  for (int i = 0; i<8; i++)
  {
    a[i] = rand()%20+10;  
    cout <<setw(3) <<a[i];
    if (a[i]<15)
      {
        a[i]*=2;
      }
    cout <<setw(4) <<a[i] <<endl; 
  }
  return 0;
}

+ 0 -

Nadya15011

12 февр. 2014 г., 10:08:58 (10 лет назад)

Давно не занимался этим...ну если паскаль:
var a:array[1..8] of integer;
i:byte;
begin
randomize;
for i:=1 to 8 do begin
a[i]:=random(11)+20;
writeln(a[i])
if a[i]<15 then a[i]:=a[i}*2;
writeln('a[',i,']= ',a[i]);
end;
end.

+ 0 -

пахан56

12 февр. 2014 г., 10:47:56 (10 лет назад)

Язык какой?