Создать массив помогите плиз!

@modzmey · Регистрация: 25.04.2010

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

Почти похоже помогите плиз на завтра срочняк надо!!!
Создать массив квадратов натуральных чисел, и вывести его элементы кратные 3.

@ZevsDT · 25.04.2010, 18:33

Pascal

program modzmey;
uses crt;
var
a:array[1..999] of integer;
i,n:integer;
begin
clrscr;
write('Сколько чисел будете вводить? '); read(n);
writeln('Введите массив ');
for i:=1 to n do
read(a[i]);
for i:=1 to n do
a[i]:=sqr(a[i]);
for i:=1 to n do
write(a[i]:4);
writeln;
write('Элементы массива кратные трём: ');
for i:=1 to n do
if a[i] mod 3=0 then
write(a[i]:4);
end.

@modzmey 0 / 0 / 0 Регистрация: 25.04.2010 Сообщений: 53
		1
	Создать массив помогите плиз! 25.04.2010, 17:12. Показов 6406. Ответов 1 Метки нет (Все метки) Почти похоже помогите плиз на завтра срочняк надо!!! Создать массив квадратов натуральных чисел, и вывести его элементы кратные 3. 0

	25.04.2010, 18:33

Опции темы

Создать массив помогите плиз!

Решение