Заглавная страница Избранные статьи Случайная статья Познавательные статьи Новые добавления Обратная связь КАТЕГОРИИ: АрхеологияБиология Генетика География Информатика История Логика Маркетинг Математика Менеджмент Механика Педагогика Религия Социология Технологии Физика Философия Финансы Химия Экология ТОП 10 на сайте Приготовление дезинфицирующих растворов различной концентрацииТехника нижней прямой подачи мяча. Франко-прусская война (причины и последствия) Организация работы процедурного кабинета Смысловое и механическое запоминание, их место и роль в усвоении знаний Коммуникативные барьеры и пути их преодоления Обработка изделий медицинского назначения многократного применения Образцы текста публицистического стиля Четыре типа изменения баланса Задачи с ответами для Всероссийской олимпиады по праву Мы поможем в написании ваших работ! ЗНАЕТЕ ЛИ ВЫ?
Влияние общества на человека
Приготовление дезинфицирующих растворов различной концентрации Практические работы по географии для 6 класса Организация работы процедурного кабинета Изменения в неживой природе осенью Уборка процедурного кабинета Сольфеджио. Все правила по сольфеджио Балочные системы. Определение реакций опор и моментов защемления |
Вводятся размеры двумерного массива и его элементы. Составить новый массив из номеров максимальных элементов исходного массива в столбцах. Результат вывести.Стр 1 из 2Следующая ⇒
Вводятся размеры двумерного массива и его элементы. Составить новый массив из номеров максимальных элементов исходного массива в столбцах. Результат вывести. program nomer_max; uses crt; const nmax=20; var a:array[1..nmax,1..nmax] of integer; b:array[1..nmax] of integer; c:array[1..nmax] of integer; imin,n,i,j,m:integer; begin repeat write('Введите число строк массива: '); readln(n); until n in [1..nmax]; repeat write('Введите число столбцов массива: '); readln(m); until m in [1..nmax]; writeln; for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(100)-50; write(a[i,j]:5); end; writeln; end; for j:=1 to m do begin imin:=1; for i:=1 to n do if (a[i,j]>a[imin,j]) then imin:=i; b[j]:=a[imin,j]; c[j]:=imin; end; writeln; writeln('Максимальные элементы в столбцах:'); for i:=1 to m do write(b[i]:5); writeln; writeln('Номера максимальных элементов в столбцах массива:'); for i:=1 to m do write(c[i]:5); readkey; end. 10.12.11 Вводятся размер одномерного массива и его элементы. Составить новый массив из элементов исходного массива, у которых сумма цифр больше 7. program cifra_7; uses crt; var i,k,n,x,summ: integer; a: array[1..1000] of integer; b: array[1..1000] of integer; begin clrscr; n:=1; writeln('Введите количество элементов массива:'); readln(i); writeln('Введите элементы массива:'); for k:=1 to i do readln(a[k]); for k:=1 to i do begin x:=a[k]; summ:=0; while (x<>0) do begin summ:=summ+(x mod 10); x:=x div 10; end; if summ>7 then begin b[n]:=a[k]; inc(n); end; end; writeln('Элементы, сумма цифр которых > 7:'); for k:=1 to n-1 do begin write(b[k]); write(', '); end; end. Задача: Вводятся размеры двумерного массива и его элементы. Составить новый массив из номеров минимальных элементов исходного массива в столбцах. Результат вывести. Program A; var massiv: array [1..10,1..10] of integer; min_in_stolb: array [1..10] of byte; min: array [1..2] of integer; strok, stolb, n, m: byte; begin write('Введите число строк массива: '); readln(strok); write('Введите число элементов в строке: '); readln(stolb); writeln; writeln('Ввод массива.'); for m:=1 to strok do begin writeln('Введите ',m,'-ю строку'); for n:=1 to stolb do begin write(n,': '); read(massiv[m,n]); end; writeln; end; for n:=1 to stolb do begin min[1]:=massiv[1,n]; min[2]:=1; for m:=1 to strok do begin if massiv[m,n]<=min[1] then begin min[2]:=m; min[1]:=massiv[m,n]; end; min_in_stolb[n]:=min[2]; end; end; writeln('Массив из номеров минимальных элементов исходного массива в столбцах:'); for n:=1 to stolb do write(min_in_stolb[n],' '); writeln; writeln('Для выхода нажмите ENTER'); readln; readln; end.
индив. 4 6. Вводятся размеры двумерного массива и его элементы. Составить новый массив из количеств нулевых элементов исходного массива в столбцах. Результат вывести.
Вводятся размер одномерного массива и его элементы. Составить новый массив из элементов исходного массива, у которых минимальная цифра равна 3.
Задача Вводятся размер одномерного массива и его элементы. Составить новый массив из чисел, которые являются числами Фибоначчи. Var a: array [1..100, 1..100] of integer; b: array [1..100] of integer; x, y, i, j, k: integer;
Begin Ввод-вывод матрицы (вручную) write('Введите количество элементов по вертикали:'); read(x); write('Введите количество элементов по горизонтали:'); read(y); for i:= 1 to x do Begin for j:= 1 to y do Begin write('a[', i, ',', j, ']='); read(a[i, j]); end; end; for i:= 1 to x do Begin for j:= 1 to y do write(a[i, j]:6); writeln; end;
{Ввод-выводматрицы(random) write('Введите количество элементов по вертикали:'); read(x); write('Введите количество элементов по горизонтали:'); read(y); fori:= 1 to x do begin for j:= 1 to y do begin a[i, j]:= random(10) - 3; end; end; fori:= 1 to x do begin for j:= 1 to y do write(a[i, j]:6); writeln; end;}
Присваиваем 0 строкам, содержащим только положительные элементы for i:= 1 to x do Begin b[i]:= 1; k:= 0; for j:= 1 to y do Begin if a[i, j] <0 then k:= k + 1; end; if k = 0 then begin b[i]:= 0; end; end;
write('Искомыймассив:');
Выводиммассив for i:= 1 to x do Begin for j:= 1 to y do Begin if a[i, j] <0 then b[i]:= b[i] * a[i, j]; end; write(b[i]:4); end; writeln; readln; end.
ЛАБА 2… Вводятся размеры двумерного массива и его элементы. Составить новый массив из номеров максимальных элементов исходного массива в столбцах. Результат вывести. program nomer_max; uses crt; const nmax=20; var a:array[1..nmax,1..nmax] of integer; b:array[1..nmax] of integer; c:array[1..nmax] of integer; imin,n,i,j,m:integer; begin repeat write('Введите число строк массива: '); readln(n); until n in [1..nmax]; repeat write('Введите число столбцов массива: '); readln(m); until m in [1..nmax]; writeln; for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(100)-50; write(a[i,j]:5); end; writeln; end; for j:=1 to m do begin imin:=1; for i:=1 to n do if (a[i,j]>a[imin,j]) then imin:=i; b[j]:=a[imin,j]; c[j]:=imin; end; writeln; writeln('Максимальные элементы в столбцах:'); for i:=1 to m do write(b[i]:5); writeln; writeln('Номера максимальных элементов в столбцах массива:'); for i:=1 to m do write(c[i]:5); readkey; end. 10.12.11
|
||||||
Последнее изменение этой страницы: 2016-12-14; просмотров: 338; Нарушение авторского права страницы; Мы поможем в написании вашей работы! infopedia.su Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Обратная связь - 3.14.129.59 (0.024 с.) |