Сформировать массив по правилу

@qlr · Регистрация: 17.12.2010

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

26 задача..просто не могу понять как сделать, все остальные сделал...туплю что-то, причем тут true и false вообще..

@Puporev · 25.04.2012, 06:56

Просто там в одной задаче их три.

Pascal

uses crt;
const nmax=100;
var a,b1,b3:array[1..nmax] of integer;
    b2:array[1..nmax] of boolean;
    n,i,k,j:integer;
    f:boolean;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(20);
  write(a[i]:4);
 end;
writeln;
writeln('Массив B1:');
for i:=1 to n do
 begin
  b1[i]:=sqr(a[i])+2*a[i]-i;
  write(b1[i]:4);
 end;
writeln;
write('Введите число для проверки кратности k=');
readln(k);
writeln('Массив B2:');
for i:=1 to n do
 begin
  b2[i]:=a[i] mod k=0;
  write(b2[i]:8);
 end;
writeln;
writeln('Массив B3:');
for i:=1 to n do
 begin
  b3[i]:=0;
  for j:=1 to i do
  b3[i]:=b3[i]+a[j];
  write(b3[i]:4);
 end;
readln
end.

@qlr 22 / 22 / 9 Регистрация: 17.12.2010 Сообщений: 72
		1
	Сформировать массив по правилу 25.04.2012, 00:05. Показов 1035. Ответов 1 Метки нет (Все метки) 26 задача..просто не могу понять как сделать, все остальные сделал...туплю что-то, причем тут true и false вообще.. Миниатюры 0

	25.04.2012, 06:56

Сформировать массив по правилу

Решение