Сформируйте и выведите на экран массив из 9 элементов,

17.01.2011, 18:52. **Показов** 4620. **Ответов** 3

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

помогите, пожалуйста, решить задачу.
Сформируйте и выведите на экран массив из 9 элементов,каждые три последовательных элемента которого составлены по следующему правилу:первый элемент равен 500,второй равен целой части квадратного корня от предыдущего,третий равен целой части от деления текущего индекса на три.
Заранее спасибо.

@Puporev · 17.01.2011, 19:08

Pascal

uses crt;
const n=9;
var a:array[1..n] of integer;
    i:byte;
begin
for i:=1 to n do
case i mod 3 of
1:a[i]:=500;
2:a[i]:=trunc(sqrt(a[i-1]));
0:a[i]:=trunc(i/3);
end;
writeln('Массив:');
for i:=1 to n do
write(a[i],' ');
end.

17.01.2011, 19:11

если не трудно можно ещё одну задачку помочь решить?
Сформируйте массив состоящий из 15 случайных чисел. Получите новый массив,каждый элемент которого равен разности элемента и его индекса. Найдите наибольший элемент второго массива,выведите на экран исходный и полученный результаты.

@Puporev · 17.01.2011, 19:18

Pascal

uses crt;
const n=15;
var a,b:array[1..n] of integer;
    i:byte;
    mx:integer;
begin
randomize;
writeln('Массив А:');
for i:=1 to n do
 begin
  a[i]:=random(20);
  write(a[i],' ');
 end;
writeln;
writeln('Массив B:');
mx:=a[1]-1;
for i:=1 to n do
 begin
  b[i]:=a[i]-i;
  write(b[i],' ');
  if b[i]>mx then mx:=b[i];
 end;
writeln;
write('Максимальный=',mx);
end.

Annny
		1
	Сформируйте и выведите на экран массив из 9 элементов, 17.01.2011, 18:52. Показов 4620. Ответов 3 Метки нет (Все метки) помогите, пожалуйста, решить задачу. Сформируйте и выведите на экран массив из 9 элементов,каждые три последовательных элемента которого составлены по следующему правилу:первый элемент равен 500,второй равен целой части квадратного корня от предыдущего,третий равен целой части от деления текущего индекса на три. Заранее спасибо.

Annny
	17.01.2011, 19:11	3
	если не трудно можно ещё одну задачку помочь решить? Сформируйте массив состоящий из 15 случайных чисел. Получите новый массив,каждый элемент которого равен разности элемента и его индекса. Найдите наибольший элемент второго массива,выведите на экран исходный и полученный результаты.

Опции темы