сервис вопросов и ответовПомогите решить задачку в паскале )))
10-11 класс|
|
Заполнить двумерный массив N x N случайными числами из интервала [-5;5] и сменить знак максимального элемента в каждой строке на противоположный .
BoodY
26 февр. 2017 г., 8:29:43 (7 лет назад)
Larisadodonova
26 февр. 2017 г., 10:07:40 (7 лет назад)
const N = 10;
var i, b: integer;
a: array [0..N] of integer;
begin
for i := 0 to N - 1 do
begin
a[i] := random(10) - 5;
if (a[b] > a[i]) then b := i;
end;
a[b] := a[b] * -1;
for i := 0 to N - 1 do writeln('[', i, '] => ', a[i]);
end.
Ответить
Другие вопросы из категории
программа на си пользователь вводит текст. вывести на экран только те слова в которых нет никаких символов кроме 'C' 'F' 'U' 'K'. в качестве разделителей
между словами используются символы пробела, запятой и точки
Помогите очень надо, пожалуйста!
в знаменателе после скобок квадрат
Читайте также
помогите решить задачки по Паскалю "4": Составить функцию, которая определяет сумму всех чисел от 1 до N и привести пример ее
использования. Пример: Введите число: 100 сумма = 5050
"5":
Составить функцию, которая определяет, сколько зерен попросил положить на N-ую клетку изобретатель шахмат (на 1-ую – 1 зерно, на 2-ую – 2 зерна, на 3-ю – 4 зерна, …) Пример: Введите номер клетки: 28 На 28-ой клетке 134217728 зерен.
люди помогите решить задачку(паскаль) очень прошу
оценка за четверть решается моя
Помогите решить задачку (Паскаль)
Задача №1
U= max{1-cos(Px2)-y; tg(3√xy2-1/3√x)} если x/y2<1;
sin(xy-x2-y2), если x/y2≥1
При 1≤x≤3, hx=1.3
2≤y≤4, hy=1.5
Задача №2
U= min{e2*cos(Px2)-y;
ctg(xy2-1/3√x)} если x/y<1;
xy-x2-y2 если x/y≥1
При 1≤x≤3 hx=1.3
2≤y≤4 hx=1.5
Лучше просто откройте изображение , там написано более понятно.
Помогите решить задачу.
Дан массив А1,.......Аn. найти максимальный и минимальный элементы и поменять их местами. Вот задача которую я делал:
program zadacha;
const
k=50;
var
a:array[1..k] of integer;
n,i:1..k;
c,v,max,min,prom:integer;
begin
for i:=1 to n do begin (здесь выскакивает ошибка о проверки диапазона)
a[i]:=random(50);
write(a[i],' ');
end;
max:=a[1];
min:=a[1];
for i:=1 to n do begin
if a[i]>max then begin
max:=a[i];
c:=i;
end;
if a[i]<min the begin
min:=a[i];
v:=i;
end;
end;
writeln('max=',max,'min=',min);
prom:=max; (вот с этой строчки и до конца помогите решить)
max:=min;
min:=prom;
writeln;
writeln('Полученный массив');
for i:=1 to n do
write(a[i], ' ');
readln;
end.
Вы находитесь на странице вопроса "Помогите решить задачку в паскале )))", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.