См вложения ПОЖАЛУЙСТА,Напишите программу в Паскале. 1)надо чтоб интервал и заполение были рандом. 2) надо показать целую таблицу
10-11 класс
|
3) надо показать таблицу после выреза, должена остататься только таблица, которая внутри (маленький квадратик)
var
a: array[1..10, 1..10]of integer;
i, j, min, max: integer;
begin
randomize();
min := random(500);
max := min + random(500);
write('[', min, ', ', max, ']');
for i := 1 to 10 do
begin
writeln();
for j := 1 to 10 do
begin
a[i, j] := min + random(max - min);
write(a[i, j]:5);
end;
end;
writeln();
for i := 3 to 8 do
begin
writeln();
for j := 3 to 8 do
write(a[i, j]:5);
end;
end.
Другие вопросы из категории
Читайте также
1. Напишите программу формирования и вывода массива размером 6x3, каждые три последовательных элемента в строке которого составлены по следующему правилу:
1-й — равен случайному числу;
2-й — равен целой части квадратного корня из предыду щего элемента;
3-й-равен сумме двух предыдущих элементов.
1–12, введенное с клавиатуры (1 — январь, 2 — февраль и т. д.). Вывести название соответствующего времени года («зима», «весна», «лето», «осень»).
2, Напишите программу, реализующую следующие вычисления. Дана матрица размера M x N (числа вводятся с клавиатуры). Для каждого столбца матрицы найти произведение его элементов. Полученные значения вывести в текстовый файл.
3, Напишите программу с использованием функции CircleS(R) вещественного типа, находящей площадь круга радиуса R (R — вещественное). С помощью этой функции найти площади трех кругов с данными радиусами. Площадь круга радиуса R вычисляется по формуле S = πR2.
4, Напишите программу, реализующую следующие вычисления. Дано целое число N (1≤N≤26), введенное с клавиатуры. Вывести N первых прописных (то есть заглавных) букв латинского алфавита.
Даны
действительные числа х, у, и z. Вычислить
max (x + y + z, xyz).
(только пожалуйста напишите полное решение, а не кусок)
Напишите программу на Паскаль которая даст ответ попадет точка в заштрихованную область или нет
2.написать программу в паскале
f(x)=2(sin*sin)x+1