#1
RawList = [int(input()) for _ in range(int(input('arr len: ')))]
NewList = [i**2 for i in RawList]
print(*NewList)
#2
RawList = [float(input()) for _ in range(int(input('arr len: ')))]
RoundedSum = round(sum(RawList))
print(RoundedSum)
#3
RawList = [int(input()) for _ in range(int(input('arr len: ')))]
print( len( list(filter(lambda p: p < 0, RawList) ) ) )
#4
RawList = [int(input()) for _ in range(int(input('arr len: ')))]
print(*[ abs(i) for i in RawList])
#5 (Я не знаю украинский алфавит, по этому сделаю для английского)
RawList = [input() for i in range(int(input('Arr Len: ')))]
vows = ['a','i','o','u','e'] #Список гласных
print( len( list( filter( lambda p: p in vows, RawList
Объяснение:
#define _CRT_SECURE_NO_WARNINGS
#include <iostream>
#include <stdio.h>
int main()
{
float a, b, c;
setlocale(LC_ALL, "Russian");
printf("Введите три числа: ");
scanf("%f %f %f", &a, &b, &c);
if (a > b && a > c)
printf("Наибольшее число = %f", a);
else if (b > a && b > c)
printf("Наибольшее число = %f", b);
else if (c > a && c > b)
printf("Наибольшее число = %f", c);
else
printf("Наибольшее значение имеют несколько чисел");
}
// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!
type
fint=file of integer;
begin
var f:fint;
Assign(f,'integers.bin'); Rewrite(f);
SeqRandom(20,-50,50).foreach(t->Write(f,t));
f.Close
end.
А теперь, собственно, решение задачи
type
fint=file of integer;
begin
var f:fint;
Assign(f,'integers.bin'); Reset(f);
var k:=0;
var b:integer;
while not Eof(f) do begin
Read(f,b);
if b.IsEven then k+=1
end;
f.Close;
Writeln('Кол-во четных компонент файла равно ',k)
end.
И последнее - программа распечатки значений компонент файла. Для контроля.
type
fint=file of integer;
begin
var f:fint;
Assign(f,'integers.bin'); Reset(f);
var b:integer;
while not Eof(f) do begin Read(f,b); Print(b) end;
Writeln;
f.Close
end.