Привет всем. Помогите написать программы на паскале.
10-11 класс
|
Сами задачи во вложении.
var a:array [1..200,1..200] of integer;
i,b,k,n,m:integer;
begin
writeln ('Введи размерность двумерного массива');
readln (n.m);
writeln ('Введи элементы массива');
for i:=1 to n do
for j:=1 to m do
readln (a[i,j]);
writeln ('Введи число');
Readln (b);
k:=0;
for i:=1 to n do begin
for j:=1 to m do begin
if a[i,j]=b then k:=1;
write (a[i,j]:4);
end;
writeln;
end;
if k=1 then writeln ('Да, такое число есть')
else writeln('Нет, такого числа нет');
readln;
end.
var a:array [1..150,1..150] of integer;
b:array [1..200] of integer;
i,j,k,s,l:integer;
begin
writeln ('Введи размерность квадратной матрицы');
readln (k);
for i:=1 to k do begin
for j:=1 to k do begin
a[i,j]:=random(100)-50;
write (a[i,j]:4);
end;
writeln;
end;
writeln;
for i:=1 to k do
for j:=1 to k do
if i<j then
begin
l:=l+1;
b[l]:=a[i,j];
write (b[l]:4);
s:=s+b[l];
end;
writeln;
writeln ('Сумма получившегося массива= ',s);
readln;
end.
Решения нужны к 1 и 3 задаче.
Другие вопросы из категории
= a1, b2 = a1+ a2, …, bn = a1+ an. Дано n. Получить последовательность , где Даны n,. Получить сумму и количество тех элементов данной последовательности, которые кратны 5 и не кратны 4. Даны n,. Вычислить Даны n и . Получить a1, a2, …, an , 2a1, 3a2, …, (n + 1)n an. Выяснить образуют ли они возрастающую последовательность.
если известно:
1) Если первый сдал, то и второй сдал;
2) Если второй сдал, то третий сдал или первый не сдал;
3) Если четвертый не сдал, то первый сдал, а третий не сдал;
4) Если четвертый сдал, то и первый сдал.
Читайте также
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
рдинат. Я поняла, что нужно найти их длины (формулы я знаю), а правильно написать программу не могу
13.
Нужно написать программу на цикле с предусловием, на Паскале.
2.написать программу в паскале
f(x)=2(sin*sin)x+1
Дано натуральное число n. Написать программу вычисляющую сумму