сервис вопросов и ответовVar k, m: integer; Dat: array[1..10] of integer; Begin Dat[1] := 16; Dat[2] := 20; Dat[3] := 20; Dat[4] := 41;
5-9 класс|
|
Dat[5] := 14; Dat[6] := 21;
Dat[7] := 28; Dat[8] := 11;
Dat[9] := 15; Dat[10] := 35;
m := 50;
for k := 1 to 10 do
if Dat[k]<m then
begin
m := Dat[k]
end;
writeln(m);
End.
AlexGrubuk
12 нояб. 2013 г., 15:34:38 (10 лет назад)
Annaseregina28
12 нояб. 2013 г., 18:33:03 (10 лет назад)
Ответ задачи равно 11
Милашкова
12 нояб. 2013 г., 20:06:15 (10 лет назад)
На ГИА по информатике за 9 класс такое заметил часто попадаются
Vkedah2013
12 нояб. 2013 г., 22:15:18 (10 лет назад)
Паскаль на что?)
Nazgulyakuneno
13 нояб. 2013 г., 0:16:36 (10 лет назад)
Паскаль учебный язык хорошо воспринимаемый.
GoRnoStay00
13 нояб. 2013 г., 1:48:39 (10 лет назад)
а нужно с объяснением?:)
Lus075nun1
13 нояб. 2013 г., 2:27:16 (10 лет назад)
упс, вам уже решили, страницу не обновила:)
Ответить
Другие вопросы из категории
решите пожалуйста задачи на языке pascal abc net.
f3.
Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10. Вывести полученное число.
f5.
Даны три целых числа. Найти количество положительных и количество
отрицательных чисел в исходном наборе.
f15.
Даны три числа. Найти сумму двух наибольших из них.
Автоматическое устройство осуществило перекодировку информационного сообщения, первоначально записанного в 16-битном коде, в 8-битную кодировку. При этом
информационное сообщение уменьшилось на 480 бит. Какова длина сообщения в символах?
Племя Пульти пользуется 32 - символьным алфавитом. Свод основных законов племени хранится на 514 глиняных табличках, на каждую из которых нанесено
ровно 256 символов. Какое кол - во информации содержится на каждом носителе? Какое кол - во информации заключено во всем своде законов?
Составьте программу, которая формирует массив из 40 случайных целых чисел от 2 до 20 и вычисляет: а) среднее арифметическое нечётных чисел
>б) сумму чисел, не превышающих 10
в) сумму чисел, кратных трём
плииз, каждую задачу отдельно.. если не уверенны не пишите.. срочно!!
Читайте также
Определите, что будет напечатано в результате выполнения следующего алгоритма var k,m,i: integer; mas:array[1..10] of integer; begin
mas[1]:=12;
mas[2]:=43;
mas[3]:=48;
mas[4]:=56;
mas[5]:=76;
mas[6]:=73;
mas[7]:=36;
mas[8]:=96;
mas[9]:=69;
mas[10]:=25;
k:=0;
m1:=mas[1] div 10 - mas[1] mod 10;
for i:=2 to 10 do begin
m2:=mas[i] div 10 - mas[i] mod 10;
if m1 > m2 then begin
m1:=m2; k:=i;
end;
end;
write(k);
end.
Var k, m: integer;Dat: array[1..10] of integer;
Begin
Dat[1] := 16;
Dat[2] := 20;
Dat[3] := 20;
Dat[4] := 41;
Dat[5] := 14;
Dat[6] := 21;
Dat[7] := 28;
Dat[8] := 12;
Dat[9] := 15;
Dat[10] := 35;
m := 0;
for k := 1 to 10 do
if Dat[k]>m then
begin
m := Dat[k]
end;
writeln(m);
End.
с пояснениями, пожалуйста!
В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] - градусы за первый день. Dat[2] - за второй и т.д.)
Определите, какое число будет напечатано в результате работы следующей программы.
Паскаль.
Var k, m: integer;
Dat: array[ 1..10] of integer;
Begin
Dat[ 1] := 12;
Dat[ 2] := 15;
Dat[ 3] := 17;
Dat[ 4] := 15;
Dat[ 5] := 14;
Dat[ 6] := 12;
Dat[ 7] := 10;
Dat[ 8] := 13;
Dat[ 9] := 14;
Dat[ 10] := 15;
m := 0;
for k := 1 to 10 do
if Dat[ k] =15 then
begin
m := m+1
end;
writeln(m);
End.
почему в ответе получается 26? var s,i:integer;
mas:array[1..10] of integer;
begin
mas[1]:=14;
mas[2]:=10;
mas[3]:=-8;
mas[4]:=6 ;
mas[5]:=12;
mas[6]:=4 ;
mas[7]:=-16 ;
mas[8]:=-7 ;
mas[9]:=5;
mas[10]:=3;
s:=0;
for i:=1 to 5 do
mas[2*i]:=0;
for i:=1 to 10 do
if mas[i]>5 then s:=s+mas[i];
write(s);
end.
Помгите пожалуйста! Найдите ошибки, а то он всякую чепуху считает.Заранее большое спасибо)))) Используя команду ветвления составить программу,
которая определяет, сколько чисел из К являются нечетными.
Program mass;
uses crt;
var i,k:integer;
a:array[1..100] of integer;
begin ClrScr;
k:=0;
randomize;
for i:=1 to 10 do begin
a[i]:=random(10)-5; write( a[i]:3);
if a[i] mod 2=1 then
k:=k+1;
end;
writeln ( 'Кол-во нечетных чисел из K ',k);
readln;
end.
Вы находитесь на странице вопроса "Var k, m: integer; Dat: array[1..10] of integer; Begin Dat[1] := 16; Dat[2] := 20; Dat[3] := 20; Dat[4] := 41;", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.