Создать массив из 10 чисел. Найти разность кубов и квадратов чисел

@MIHA200 · Регистрация: 10.05.2012

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

Создать массив из 10 чисел. Найти разность кубов и квадратов чисел массива
+блок схема плзззз

@КонецСвета · 10.05.2012, 22:23

Pascal

uses crt;
var a: array [1..10] of integer;
    i: byte;
begin
randomize;
writeln('Массив   Квадрат   Куб   Разность');
for i:=1 to 10 do
    begin
    a[i]:=random(19)-9;
    write(a[i]:4);
    write(sqr(a[i]):9);
    write(sqr(a[i])*a[i]:9);
    writeln(sqr(a[i])*a[i]-sqr(a[i]):9);
    end;
readln;
end.

пс с блок-схемой не помогу, извини..

@MIHA200 0 / 0 / 1 Регистрация: 10.05.2012 Сообщений: 3
		1
	Создать массив из 10 чисел. Найти разность кубов и квадратов чисел 10.05.2012, 22:16. Показов 3260. Ответов 1 Метки нет (Все метки) Создать массив из 10 чисел. Найти разность кубов и квадратов чисел массива +блок схема плзззз 0

Опции темы

Создать массив из 10 чисел. Найти разность кубов и квадратов чисел

Решение